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Preface 



This publication is a reference manual for the programmer 
using the IBM System/3 Basic Assembler language. This 
language provides facilities for representing machine 
usable instructions symbolically on a one-for-one basis. 
The symbolic representations are translated by the IBM 
System/3 Basic Assembler into the machine usable form 
necessary for running a program on the System/3. 



Related Publications 

The IBM System/3 Models 8, 10, 12, and 15 Components 
Reference Manual, GA2 1-9236, contains specifications 
governing the use of assembler language instructions. 



System/3 Model 8 

The System/3 Model 8 is supported by System/3 Model 10 
Disk System control programming and program products. 
The facilities described in this publication for the Model 10 
are also applicable to the Model 8, although the Model 8 is 
not referenced. It should be noted that not all devices 
and features which are available on the Model 10 are avail- 
able on the Model 8. Therefore, Model 8 users should be 
familiar with the contents oHBM System/ 3 Model 8 
Introduction, GC2 1 -5 1 1 4. 



Eighth Edition (April 1975) 

This is a minor revision of SC2 1-7509-5 incorporating Technical Newsletters: 

SN21-5385 March 17, 1976 
SN21-5434 December 31, 1976 
SN21-5536 June 24, 1977 

This revision makes some changes to various pages and introduces information concerning 
the IBM System/3 Model 8. Changes to text and small changes to illustrations are 
indicated by a vertical line at the left of the change; new or extensively revised 
illustrations are denoted by the symbol •at the left of the figure caption. 

This edition appUes to version 12, modification 00 of IBM System/3 Model 10 Disk System 
Basic Assembler (Program Product Number 5702- ASl); version 03, modification 00 of 
IBM System/3 Model 15 Basic Assembler (Program Product Number 5704-ASl); and to all 
subsequent versions and modifications unless otherwise indicated in new editions or 
technical newsletters. Changes are continually made to the specificarions herein; before 
using this publication in connection with the operation of IBM Systems, consult the 
latest IBM System/3 Bibliography, GC20-8080, for the editions that are applicable and 
current. 

Requests for copies of IBM pubhcations should be made to your IBM representative or to 
the branch office serving your locaUty. 

A Reader's Comment Form is at the back of this publication. If the form is gone, address 
your comments to IBM Corporation. Pubhcations, Department 245, Rochester, 
Minnesota 55901. 



(DCopynght International Business Machines Corporation 1970, 1971, 1972, 1973, 1975 
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Introduction 



The IBM System/3 Basic Assembler language is a 
symbolic language. That is^ it must be translated into a 
form usable by the computer before a program can be 
run. The computer-usable form is caJled machine 
language, and the IBM System/3 Basic Assembler language 
provides a convenient method for representing, on a 
one-for-one basis, machine language instructions and 
related data necessary to write a program for IBM 
System/3. This one-for-one relationship to machine 
language instructions gives assembler language great 
programming versatility. 

The assembler language is composed of symbols, called 
mnemonics, which are used to represent the operation 
codes of two types of instruction statements: 

1. Machine instruction statements are the symbols 
that represent machine language instructions on a 
one-for-one basis. Note that symbolically repre- 
sented machine instructions are translated into 
machine language by the assembler. 

2. Assembler instruction statements are instructions 
which control the functions of the assembler. Each 
assembler instruction statement causes the assembler 
to perform a specific operation during the assembly 
process. 

The IBM System/3 Basic Assembler: 

• Processes instructions written in assembler language. 

• Translates the assembler language instructions into 
machine language. 



There are certain procedures for storing assembler routines 
on the Model 10 Disk System, Model 1 2, and Model 15 R 
(relocatable) Library and for loading assembler object pro- 
grams into main storage. These procedures, as weD as the 
other items mentioned briefly above, are discussed more 
fully in the text. 



MINIMUM SYSTEM REQUIREMENTS 

The minimum system configuration and optional device 
support for the Basic Assembler program is shown in the 
IBM System/3 Models 6, 8, 10, and 12 System Generation 
Reference Manual, GC2 1 -5 1 26 and in the IBM System/3 
Model 15 System Generation Reference Manual, 
GC21-76I6. 



• Assigns storage locations. 

• Performs other functions necessary to produce an 
executable machine language program. 

In order to call the assembler from its storage 
location, a specific set of OCL (operation control 
language) instmctions must be used. Following these 
OCL instructions, the user may elect to include an 
OPTIONS instruction, a facility which allows him to 
take advantage of various combinations of output listings 
and punched decks. 
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MAIN STORAGE REQUIREMENTS 

The Model 10 Disk System Basic Assembler (5702-ASl) 
requires 8,192 bytes of main storage for execution, 
exclusive of control program requirements. 

The Model 12 Basic Assembler (5705-ASl) and the 
Model 15 Basic Assembler (5704-ASl or 5704-AS2) 
require 10,240 bytes of main storage for execution, 
exclusive of control program requirements. 



Parti. Basic Assembler Language 



The IBM System/3 Basic Assembler language is a symbolic 
language that provides a convenient method for 
representing, on a one-for-one basis, macliine language 
instructions. The symbolic representations in assembler 
language coding are translated by the IBM System/3 
Basic Assembler Lnto the machine language form usable 
by the computer. In order to code in assembler 
language, the user must become familiar with certain 
terms, coding conventions, instructions, and other 
features of the language. The remainder of this chapter 
deals with these items. 



TERMS AND EXPRESSIONS 

A term is a single symbol, self-defming value, or location 
counter reference which can be used only in the operand 
field of an assembler language instruction. The three 
types of terms are described under Terms in this section. 



BASIC STATEMENT FORMAT 

A statement coded in assembler language can contain up 
to four entries from left to right: Name, Operation, 
Operand, and Remark. See Assembler Coding Conventions 
in this manual for an explanation of the contents and 
functions of each entry. 



An expression consists of one or more terms. It is used 
to specify the operand fields of assembler language 
instructions. Terms and expressions are classed as either 
absolute or relocatable. A term or expression is absolute 
if its value is not changed when the assembled program in 
which it is used is relocated in main storage. A term or 
expression is relocatable if its value is changed when the 
program in which it is used is relocated. 



Basic Assembler Language 3 



Program relocation is the loading of an assembled 
program (object program) into a different area of main 
storage from that which was originally assigned by the 
assembler. The difference (in bytes) between the 
originally assigned address of the object program ajid the 
address of the relocated object program is the amount of 
relocation. The addresses assigned to all instructions and 
data in the relocated program are changed by the amount 



of relocation. In Figure 1 , Object Program A is initially 
loaded at address 2000 in main storage. When Object 
Program A is loaded a second time, it is placed at address 
3000 in main storage. The amount of relocation is 1000 
bytes. Therefore, the values of all relocatable terms and 
expressions used in Object Program A would be increased 
by 1000 during the second loading. 



Storage 
Address 



2000 



Main Storage 




Storage 
Address 



2000 i- 



Main Storage 



3000 




First Loading 



Second Loading 
The amount of program relocation is 1000 bytes. 



Figure 1 . Program Relocation 



TERMS 



The Self-Defining Term 



Three types of terms are used in the IBM System/3 
Basic Assembler language. 

• Symbol 

• Self-defining term 

• Location counter reference 

The Symbol 

A symbol is a character or combination of characters 
used to represent storage locations, instructions, input/ 
output units, registers, or arbitrary values. A symbol can 
be used in either the name field or the operand field of 
a statement. When used in the name field, the symbol is 
called a name field entry. When used in the operand 
field, the symbol is called a symbolic term. 

When the assembler finds a symbol in the name field of 
a statement, it assigns to that symbol an address value 
attribute. See Addressing in this section. The assembler 
also assigns a length attribute to the symbol, which is 
tlie number of bytes in the storage field named by the 
symbol. There are exceptions. Wlien the assembler en- 
counters EQU, START, or TITLE statements, it does 
not assign the usual attributes. EQU name field entries 
derive their values from the operand, START name field 
entries are assigned a length of 1, and TITLE name field 
entries are assigned no values at all. 

The same symbol cannot be used as a name entry more 
than once within a program with the exception of the 
TITLE card. In order for a symbol to be used in the 
operand field, it must be defined (that is, used as a name) 
on an instruction other than a TITLE card somewhere in 
the program. Once it is defined, the symbol may appear 
in any number of operands. Whether the symbol is used 
as a name or an operand, these rules must be followed: 

1. The symbol can consist of no more than six 
characters, the first of which must be either 
alphabe':ic or S, #, @. The other characters can be 
any combination of alphabetic, numeric, or S, #,@. 

2. Blanks and special characters other than $, #, @ 
cannot be used in a symbol. 



The self-defining term is a term which specifies an actual 
value or bit configuration. 

The value expressed by the self-defining term is taken 
literally by the assembler and is assembled into the instruc- 
tion. Like all terms, the self-defining term is used only 
in the operand field. 

There are four types of self-defining terms: 

• Decimal 

• Hexadecimal 

• Binary 

• Character 



Decimal Self-Defining Terms 

A decimal self-defining term is an unsigned decimal 
number written as a sequence of decimal digits. High 
order zeros may be used, such as in 0003. If a decimal 
term is used as an address, its value cannot exceed the 
number of bytes in main storage. A decimal term consists 
of no more than five digits and cannot exceed a value of 
65,535. This value is equivalent to the binary value 
that can be contained in two bytes. A decimal self-defining 
term is assembled as its binary equivalent. 

Examples: 16 132 00006 43678 

In the following example, a decimal self-defining term is 
used in a Move Immediate (MVI) instruction. The binary 
equivalent of 25 would be placed in the 1-byte area 
referenced by the symbol, COST 



NAME 



OPERATION 



OPERAND 



ALPHA 



MVI 



' COST, 25 
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Hexadecimal Self-Defining Terms 



Character Self-Defining Terms 



Hexadecimal self-defining terms can consist of up to 
four hexadecimal digits enclosed in apostrophes and 
preceded by the letter X. 

Examples: X^C34A' XWF' X'6' X'DE' 



Qiaracter self-defining terms consist of one or two 
characters enclosed by apostrophes and preceded by the 
letter C; such as C*A3'. Any of the valid punch 
combinations can be used in a character seif-defining 
term. 



Each digit is assembled into its 4-bit binary equivalent. 
Therefore, the maximum value would be XTFFF* 
(65,535). 

The following is an example of the use of a hexadecimal 
self-defining term. The I -byte area at SWITCH would 
contain the hexadecimal value FO (binary, 1 1 II 0000) 
after execution of the instruction. 



NAME 



BETA 



I ^ 

I OPERATION I OPERAND 

\ 



-h 



MVI 



SWITCH, X'FO' 



Examples: CA9' C'EA' C'LB' Q'T 

Because certain terms in the assembler language must be 
enclosed by apostrophes (such as C'EA'), for every 
apostrophe that is used as a character in a self-defining 
term, two must be written. For example, the characters 
A' would be written as C'A'". 

In the following example, a dollar sign (S) would be 
moved into the byte field at REPORT. 



NAME 



DELTA 



OPERATION 



OPERAND 



MVI 



REPORT, CT 



Binary Self-Defining Terms 

Binary self-defining terms are written as a sequence of 
Ts and O's enclosed in apostrophes and preceded by the 
letter B; such as B'lOll'. This term would appear in 
storage as 0000101 1 . The high-order (leftmost) bits 
are padded with 0-bits to make a multiple of eight bits of 
data (one or two bytes). A maximum of 1 6 bits of data 
can be represented in each term. In the following 
example of a Move Immediate instruction, the binary 
information will be moved into the 1-byte field at AREA. 



NAME ' OPERATION i OPERAND 

\ \ 



GAMMA 



MVI 



AREA, B'101 1001 r 



Location Counter Reference 



Location Counter: The location counter is an internal 
counter, maintained by the assembler, which always 
points to the next available storage location. As each 
new statement is processed, the location counter is 
increased by the number of bytes in the assembled 
statement. The assembler uses the current address 
in the location counter to assign consecutive storage 
addresses to program statements. 



Location Counter Reference: A location counter 
reference is an asterisk (*) used as a term in the operand 
of an instruction. When the assembler encounters 
an asterisk, it substitutes the current value of the 
location counter (which always points to the next 
available storage location) for the asterisk. 



# 



EXPRESSIONS 

An expression consists of an arithmetic combination of 
one or more terms. In a multi-term expression, terms 
must be separated by an arithmetic operator: the 
arithmetic operators are + for addition, — for subtraction, 
and * for multiplication. 

Examples: AREA+X'2D' N-25 R+15 A*8 

The rules for coding an expression are; 

1 . Two terms or two operators must not be used 
consecutively in an expression. 

2. Parentheses cannot be used in an expression. 

3. Only absolute terms can be used in a multiply 
operation. 

4. Blanks are not allowed in an expression. 

5. a. Using the Model JO disk system basic assembler, 

an expression may consist of only one term when 
that term is a symbol used as the operand of an 
EXTRN statement, 

b. Using the Model 15 basic assembler, if the expres- 
sion contains an external symbol, then the 
expression must be of the form A or A±e. A is a 
symbol used as the operand of an EXTRN state- 
ment and e is an absolute expression. 

Note: An A±e expression must not be in a Model 
10 subroutine with RPG II. 



If there is more than one term in the expression, the 
terms are reduced to a single value as follows: 

1 . Each term is evaluated separately . 

2. Arithmetic operations are then performed in a 
left-to-right sequence, except that multiplication 
is performed before addition or subtraction. An 
example would be A+B*C, which would be 
evaluated as A+(B*C), not (A+B)*C. The result 
would be the value of the expression, 

3. The intermediate result of the expression 
evaluation is a 3-byte, or 24-bit value. Intermediate 
results must be in the range of -2^ through 



Negative values are carried in the two's-complement 
form. The final value of the expression is the truncated, 
rightmost 16 bits of the result. The value of the 
expression before truncation must be in the range of 
-65536 through +65535. A negative result is considered 
to be a 2-byte positive value. 

Note: In address constants the full 24-bit final expression 
result is truncated on the left to fit the length of the con- 
stant. 

Absolute Expressions: An expression is considered 
absolute if its value is unaffected by program relocation. 

An absolute term may be a non-relocatable symbol, or 
any of the self-defining terms. All arithmetic operations 
are permitted between absolute terms. 

An absolute expression can contain relocatable terms or 
a combination of relocatable and absolute terms under 
the following conditions: 

1. The expression must contain an even number of 
relocatable terms. 

2. The relocatable terms must be paired and each 
pair must consist of terms with opposite signs. 
The paired terms need not be adjacent. 

3. Relocatable terms cannot be used in a multipli- 
cation operation. 

Pairing relocatable terms with opposite signs cancels 
the effect of the relocation, because both terms would be 
relocated by the same value. Therefore, the value 
represented by the paired terms would, in effect, remain 
constant regardless of the program relocation. For 
example, in the absolute expression A-Y+X, A is an 
absolute term and X and Y are relocatable terms. If A 
equals 50, Y equals 25, and X equals 10, the value of 
the expression would be 35,- If X and Y are relocated by 
a factor of 100, their values would become 1 10 and 125, 
respectively. However, the expression would still 
evaluate as 35 (50-125+1 10=35). Absolute expressions 
reduce to a single absolute value. 



Relocatable Expressions: A relocatable expression is 
one whose value changes by the amount of relocation 
when the program in which it is used is relocated. All 
relocatable expressions must reduce to a positive 
value. 



.24 



1. 
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A relocatable expression can be a combination of 
relocatable and absolute terms under the following 
conditions: 

1 , There must be an odd number of relocatable 
terms. 

2. All relocatable terms, except one, must be paired 
and each pair must consist of terms with opposite 
signs. The paired terms need not be adjacent. 



ASSEMBLER CODING CONVENTIONS 

This section explains the generaJ coding conventions 
associated with the IBM System/3 Basic Assembler 
language. When coding in assembler language, the 
programmer uses the IBM System/3 Assembler Coding 
Form (Figure 2). 



3. The unpaired term must not be immediately 
preceded by a minus sign. 

4. Relocatable terms cannot enter into a multiplication 
operation. 

All terms in a relocatable expression are reduced to a 
single value. This single value is the value of the unpaired 
relocatable term after it has been adjusted (displaced) by 
the resultant value of the other terms in that expression. 
For example, in the expression W-X+Y where W, X, 
and Yare relocatable terms; and W=10, X=3, Y=l; 
the result would be the relocatable value of 8. 

If the program is relocated by 100 bytes, the resultant 
value of the expression would be increased by the amount 
of relocation (100), giving the expression a value of 108. 



The Statement Format 

Each line on the coding form is divided into two segments: 
Statement (columns 1-87), and Sequence (columns 89-96). 

The Statement segment can contain up to four entries, 
from left to right: Name, Operation, Operand and 
Remark. The Name field is column dependent. It 
must start in column 1 , unless otherwise specified by 
the ICTL assembler instruction (see Assembler 
Instruction Statements). All other entries can start 
in any column, as long as there is at least one blank 
separating each entry and the entries remain in the 
stated order. Figure 3 is a diagram of assembler 
statement entries. 



In the following expression, a combination of absolute 
and relocatable terms are used: A+F*G— EHB. A, D, 
and B are relocatable terms; F and G are absolute 
terms. When given the values A=3, B=2, D=5, F=l, and 
0=4, the result would be a relocatable value of 4. The 
multiplication occurred first, resulting in 4; then the 
addition and subtraction of the other terms, including 
the result of the multiplication, was performed in a 
left-to-right direction. The result of the arithmetic 
operations is a relocatable value of 4 for this expression. 

Upon relocation, the value of this expression can be 
determined by adding the amount of relocation to all 
relocatable terms. 









n 
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Name Entry 

• Optional or required depending on the specific 
instruction. 

• Up to six characters can be used in a name. 

• First character must be alphabetic (including $, #, @). 

• First character must be in column 1 unless otherwise 
specified by an ICTL assembler instruction. 

• No special characters or blanks in a name (except 

• At least one blank must follow the Name entry or 
appear in the first Name entry column (if no name is 
entered). 



Operation Entry 

• Required entry. 

• Contains mnemonic operation code (list of valid machine 
codes is in Appendix A . Machine Instructions). 

• Must be followed by a blank. 

Operand Entry 

• Optional or required depending on the specific 
instruction. 

• Contains coding that describes data to be acted upon. 

• Operands are separated by a comma. 

• No blanks between terms or operands. 

• Blanks are allowed within character constants and 
character self-defining terms only. 

• If the entire operand entry is omitted, but a remark 
entry is desired, absence of the operand must be 
indicated by a comma in the operand entry, preceded 
and followed by one or more blanks. 

• Must be followed by a blank. 



Remark Entry 

• Optional entry. 

• Contains a brief verbal description of the statement's 
function. 

• Cannot extend beyond column 87 or a Umit prescribed 
by ICTL assembler instruction. 

• Can contain any combination of valid characters or 
blanks. 

• Must be followed by a blank. 



Identification Sequence Entry 

• Optional entry, 

• Contains statement identification or sequence 
characters. 

• See ISEQ - Input Sequence Checking later in this section. 

Comment Statements 

The entire statement field (columns 1-87) can be used 
for comments by placing an asterisk in column 1 (or the 
beginning column, as set by the ICTL assembler 
instruction). Comments can be extended for more than 
one hne by the repeated use of the asterisk in the first 
column of additional cards. Comment Unes may be used 
anywhere in the source program and are printed on the 
program listing. Sequence checking is also performed 
on cards containing comment statements. 
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Name Entry 



This entry may contain 
up to 6 characters. 



If not left Wank, column 
one must contain an 
alphabetic character. 



® 



Operation Entry 



This entry consists of the 
mnemonic code for the 
desired operation. The 
operation can be either 



Machine instruction 



or Assembler instruction 



® 



Operand Entry 



One or more operands 
that consist of either: 



EXP or 



EXP (EXP) 



EXP (EXP.EXP) 



or EXP (,EXP) 



A symbol 
(AT or RT) 



Decimal 
e.g. 156 



A single term consisting of: 



A self-defining term 
(AT) 



Hexadecimal 
e.g. X'C4' 



Binary 
e.g. B'lOr 



An arithmetic combination 
of terms. 



A location counter 
reference (*) (RT) 



Character 
e,g. C AB' 



EXP = expression 
AT = absolute term 
RT = relocatable term 







Remark Entry 



This entry contains any 
statement PDeaningful 
to the programpDer. 



This entry is optional. 



® 



Sequence Entry 



This field may contain 
any valid characters. 



This entry is optional. 



Figure 3. Assembler Statement Entries 
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ADDRESSING 

The programmer must be able to access any part of storage, 
IBM System/3 provides two methods of addressing: direct 
and base-register displacement. The relative addressing 
technique can be used with both methods. For addressing, 
see the IBM System 13 Models 8, 10, 12, and 15 Components 
Reference Manual, GA21-9236. 



Direct Addressing 

The direct addressing method allows the programmer to 
represent a 16-bit instruction address by using an 
expression as an operand entry. The assembler places 
the value of the expression in the machine instruction 
which it generates. 

Two bytes are always used in the machine instruction for 
a direct address. A direct address is indicated by the 
absence of a register in the operand. 

Example: MVI A,C'D' 

This indicates to the assembler that a direct address is to 
be generated for location A (see Machine Instruction 
Operands). 

Base-Register Displacement Addressing 

Base-register displacement addressing involves setting up 
a base address from which other addresses can be 
calculated. This base address must be placed in the base 
register before the base register is used for addressing. 

One byte is always used in the machine instruction for a 
base-register displacement address and is indicated by tjie 
presence of a register in the operand. 



The base register plus a displacement can reference any 
higher address within 255 bytes of the specified base 
address. The displacement portion of the address can be 
either absolute or relocatable; however, in either case the 
programmer indicates that a base-displacement address is 
to be generated by the presence of the register in the 
operand (see Machine Instruction Operands). If relocatable 
displacements are used, the USING statement (see Assembler 
Instruction Statements) must be used to indicate to the 
assembler which register contains the base address and 
what address will be loaded into that register. The USING 
instruction does not load the register with the specified 
address; the programmer must use a load instruction to 
place the indicated address into the register. Figure 4 is 
an example of base-register displacement addressing. 



In Figure 4 two bytes of data will be moved from the 
location of B to the location of A. The assembler 
calculates the displacement to the addresses for A and 
B, if A and B are relocatable and are within a positive 
255 bytes of the address in base register XRl . If either 
A or B is over 255 bytes from the base address, an 
addressing error occurs and an assembler error statement 
is generated. If the terms A and B are not relocatable 
symbols, the assembler uses the absolute values (up to 
255) of the terms for the displacement. If absolute 
displacements are used, the USING assembler statement 
is not required. 



Note: The programmer must explicitly specify the base 
register whenever base-register displacement addressing is 
used. 



Examples: MVI 
MVI 



A(,2),CD' 

5(,1),CD' 



This indicates to the assembler that a base-register displace- 
ment address is to be generated for location A using base 
register 2 and for displacement 5 from base register 1. 
IBM 
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Figure 4. Base-Register Displacement Addressing 



The programmer terminates the use of a previously 
defined base register through the use of the DROP 
instruction (see Assembler Instruction Statements). The 
value of the register is not affected. This register 
cannot, however, enter into base-register displacement 
addressing using relocatable displacements until specified 
again by a USING instruction. 



Relative Addressing 

Relative addressing is an addressing technique 
accomplished by adding bytes to or subtracting bytes 
from a symbol or location counter reference. The 
expression *+5, for example, specifies the location 5 
bytes beyond the current value of the location counter. 
Figure 5 is an example of relative addressing. 
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In Figure 5, the instruction with the operation code 
ZAZ has a length of 6 bytes, the instruction AZ has a 
length of 5 bytes and the instruction with MVI has a 
length of 4 bytes in storage. Using relative addressing, 
the location of the AZ instruction can be expressed in 
two ways, AAA+6 or BBB-5. 
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Figure S. Relative Addressing 



Figure 6 shows how the AZ instruction can be addressed 
relative to the nearby symbolic addresses, AAA and BBB. 



Control of Location Counter 

Addressing in any computer language depends upon the 
location counter. IBM System/3 allows the programmer 
to control the location counter by using two assembler 
instructions: START and ORG. The START assembler 
instruction can be used to initialize the location counter 
to a desired value at the beginning of a program. The 
ORG assembler instruction can be used to change the 
value of the location counter anywhere in a program. 



j G-bytes S-bytes 4-bytes - 

" ' 




U l_i 


1 1 1 


t ♦ ♦ 

1 A2 MVI 
ZAZ (AAA+6) (BBS) 
symbolic address = (AAA) (BBB-5) 



Figure 6. Schematic of Relative Addressing 

These two instructions are described in detail under 
Assembler Instruction Statements. 

MACHINE INSTRUCTIOM STATEMENTS 



Relative addressing may also be used with base-register 
displacement addressing if the displacement is a 
relocatable term. 



Example: MVC A+5(,RX1),B(2,RX1) 



In the example, A+5 is an example of relative addressing 
used with base-register displacement addressing. 



Instruction Addressing 



Machine instruction statements are symbols that 
represent machine language instructions on a one-for-one 
basis. The assembler translates tliese symbolic repre* 
sentations into machine language usable by the 
computer. Machine instruction statements differ from 
assembler instruction statements in that the machine 
instruction statements are executable parts of the 
program's logic (such as MVI, ST, LA, etc), while 
assembler instruction statements are simply orders to 
the assembler, each statement directing a specific operation 
(such as DC, START, SPACE, etc). See IBM System/3 
Models 8, 10, 12, and 15 Com.ponents Reference Manual, 
GA21-9236 for a description of the execution of machine 
instructions. 



A symbol used as a name entry in a machine-instruction 
statement addresses the leftmost byte of storage occupied 
by that instruction. 



Data Addressing 

A symbol used as a name entry in a data definition 
instruction (see DC - Define Constant and DS - Define 
Storage) address the rightmost byte of storage occupied 
by or reserved for that data. 



The format for a machine instruction statement is closely 
related to, but not the same as, the machine language 
instruction format which results from the assembly 
process (see Appendix A. Machine Instructions for 
machine language instruction formats). 

A mnemonic operation code is used in place of the 
actual machine language operation code and one or 
more operands provide the information required by 
the machine instruction. A remark and a sequence 
entry may be included in the machine-instruction 
statements, but they will not affect the machine 
language instruction. 
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Name Entry Attributes 

Any macliine-instruction statement can contain a 
symbol as a name entry. Other macioine-instruction 
statements can use that symbol as an operand. The 
assembler assigns value and length attributes (charac- 
teristics) to every sumbol used in a program. The value 
attribute of a symbol which is used as a name entry 
in a machine-instruction statement is the address of 
the leftmost byte of storage occupied by the assembled 
instruction. The length attribute of the symbol is 
the number of bytes of storage occupied by the 
assembled instruction. Refer to Lengths -Explicit and 
Implied in this section for a discussion of the length 
attributes of other types of symbols, terms, and 
expressions. 



See Appendix A. Machine Instructions for a list of 
extended mnemonic codes. 



Machine Instruction Operands 

This section describes (1) operand fields and subfields, 
(2) exphcit and implied lengths, and (3) operand groups 
and formats. The operands of machine instruction 
statements provide the information about addresses, 
lengths, and immediate data that is required by the 
assembler to generate executable machine instructions. 
General rules for coding of operands are covered in 
Assembler Coding Conventions. 



Machine Instruction Mnemonic Codes 



Operand Fields and Subfields 



The mnemonic operation codes are designed to be 
easily-remembered codes that remind the programmer 
of the functions performed by the instructions. The 
mnemonic codes are translated into machine-language 
operation codes by the assembler. IBM System/3 Basic 
Assembler provides mnemonic and extended mnemonic 
operation codes. The complete set of mnemonic codes 
is listed in Appendix A. Machine Instructions. 

Extended Mnemonic Codes 

Extended mnemonic codes are provided for the 
convenience of the programmer. They are unlike other 
mnemonic codes in that part of the information 
usually provided in the operand is in the extended 
mnemonic code itself. Extended mnemonic codes allow 
the following: 

1 . Conditional branches (BC) and jumps (JC) can 
be specified mnemonically, requiring only a 
branch address as an operand. 

2. Half-byte moves (MVX) can be specified 
ninemonically, requiring only the use of addresses 
as operands. 

3. The supervisor caJl form of the command CPU 
(CCP) machine operation can be specified 
ninemonically (Model 15 only). 

Extended mnemonic codes are not part of the set of 
machine instructions, but are translated by the assembler 
into the corresponding operation code and condition 
combinations. 



The left operand of a pair is called operand 1 , or 
operand field 1 ; the right operand is called operand 2, 
or operand field 2. An operand field may include one 
or two subfields (length subfield, register subfield) 
as in the following example of base-register displacement 
addressing. 

Example: 40(,2) 

The above operand field contains a displacement entry, 
40, and a register subfield entry, 2, representing index 
register 2. The following rules apply to the coding of 
subfields: 

1 . Parentheses must enclose a subfield or subfields. 

2. Blanks cannot be used within subfield parentheses. 

3. A comma must separate two subfields within 
parentheses (L,R). 

4. If the first subfield of a pair is omitted, the 
comma that separates it from the second subfield 
must be retained (,R). 

5. If the second subfield of a pair is omitted, the 
comma separating the pair must also be omitted 
(L). 

6. If both subfields are omitted, the separating 
comma and the parentheses must also be omitted. 

Operand subfields can contain immediate data, length, 
or register information. Only absolute expressions 
and self-defining terms may be used as subfield entries. 
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Lengths — Explicit and Implied 



Operand Groups 



A length subfield in an operand may be either explicit 
or implied. To imply a length, the programmer omits 
the length subfield from an operand. When a length 
specification is not included in an operand requiring 
a length, the assembler includes the implied length of 
the first operand, such as the length attribute of a name 
entry (see Name Entry Attributes in this section). 
The length attributes of various terms and expressions 
are shown in Figure 7. 

An explicit length is written by the programmer in the 
operand as an absolute expression. The explicit length 
overrides any implied length. 



Machine-instruction statement operands are divided 
into six groups. The characteristics of each group are 
as follows: 



Group I: Two-operand format in which a length is 
explicit or imphed in both operands. 



Group 2: Two-operand format in which a length can 
be explicit in either operand, but not in both. If 
length is not explicit in either operand, the assembler 
uses the implied length of operand 1 . 



Term or Expression 


Length Attribute 


1. Name entry symbol 


Length, in bytes, of the 


of a machine-instruction 


instruction. 


2. Location-counter 


Length, in bytes, of the 


reference (*) 


instruction in which it 




appears (except in the EQU 




assembler statement, where the 




length attribute assigned is one). 


3. Expression 


Length anribute of the 




leftmost term in the 




expression. 


4. Self-Defining Term 


Length attribute is one. 


5. START name entry 


Length attribute is one. 


NOTE : See also Subfield 3 


-- Length under Data [Refining 


Instructions. 





Group 3: Two-operand format in which a length 
cannot be specified. 



Group 4: One-operand format in which only immediate 
data may be used. 



Group 5: Two-operand format in which both operands 
are immediate data. 



Group 6: Two -ope rand format in which operand 1 is 
used by the assembler to calculate a positive displacement 
and operand 2 is immediate data. 



Figure 7. Length Attributes of Terms and Expressions 



Basic Assembler Language 15 



Figure 8 shows the allowable operand formats for each 
operand group. The instructions using each operand 
group are also listed. Refer to Appendix A. Machine 
Instructions for the related machine-instruction formats. 



operand (I-field) is not used since the information is 
inherent in the mnemonic (see Extended Mnemonic 
Codes in this section). 



For the extended mnemonics of the MVX instruction, 
the I-field information is inherent in the mnemonic and 
the I-field is omitted from the operand. For the extended 
mnemonics of the BC and JC instructions, the second 



Data movement is from operand 2 to operand 1 in a 
two-address format instruction (group 1 and group 2). 
This operand order is equivalent to that of machine 
instructions. 



GROUP 


INSTRUCTIONS 


ALLOWABLE OPERAND FORMAT 


1 


ZAZ.AZ.SZ 


A,A A(L),A D(,R),A 
A,A(L) A(L),A(L) D(,R),A(L) 
A,D(,R) A(L),D(,R) D(,R),D(,R) 
A,D(L,R) A(L),D(L,R) D(,R),D(L,R) 


D(L,R),A 
D(L,R),A(L) 
D(L,R),D(,R) 
D(L,R},D(L,R) 


2 


MVC,CLC,ALC 
SLC,ITC,ED 

MVX 


A,A A(L).A D(,R),A 
A,A(L) A{L),D(,R) D{,R),A(L) 
A,D(.R) D(,R),D(,R) 
A,D(L.R) D(,R),D(L,R) 

A,A(I) A{I),A D{,R),A{J) 
A.Dd.R) A{I},D(,R) D(,R),D(I,R) 


D(L,R),A 
D<L,R),D(,R) 

D(i,R),A 
D(I,R),D(,R) 


3 


MVI,CLI,SBN 
SBF,TBN,TBF 
TIO,SNS,LIO 
BC 

L,ST,A,LA 
SCP\LCP* 


AJ D(,R),I 
A,R D(,R),R 


4 


APL,SVC* 


1 


5 


HPL,SI0,CCP* 


IJ 


6 


JC 


A,l 


"Model 1 5 or 
The foMowin 

CODE 

A 

D 
L 
R 
\ 


g codes are used to describe the 

MEANING 

Address 

Displacement 

Length 

Register 

Irnrnediate Data (bit masks, 

condition bit masks, or 

control bits to be used in 

tlie instruction) 


possible operand formats: 

ACCEPTABLE FORM 

Relocatable expression, absolute expression, or self-defining 
Relocatable expression, absolute expression, or self-defining 
Absolute expression or self-defining value. 
Absolute expression or self-defining value. 
Absolute expression or self-defining value. 


value, 
value. 



Figure 8. Operand Format by Group 
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In groups 3, 5, ar.d 6, the Q-code operand is always 
on the rigtit. Sec Appe}idix A. Machine Instructions 
for an explanation of Q codes. 



NAME 



symbol 



OPERATION 



OPERAND 



EOU 



3f\ expression 



ASSEMBLER INSTRUCTION STATEMENTS 

When writing a program the programmer uses two types 
of statements: executable instructions and instruction 
statements to the assembler. The executable instructions 
are tlie machine instruction statements. These are 
symbolic representations of the programmer's logic, 
such as branch, move, or compare, which are translated 
into machine language by iht assembler. 

Assembler instruction statements, on the other hand, do 
not generate executable machine codes. They are 
instnictions that control specific assembler functions. 
These instructions are used to set up areas in storage, to 
define data, to equate symbols, and to control program 
listings, location counter, statement formats, and types 
of addressing. In the remainder of this section, the 
individual assembler instruction statements are 
discussed . 



The expression in the operand field can be either 
absolute or relocatable. Any symbol appearing in 
the operand field must have been previously defined. 
Figure 9 illustrates how this instruction can be used 
to equate a symbol with the contents of the operand. 

In Figure 9, MAX has the value of TEST + X'3FC 
(XM02+X3FC' or X'4FE0 any time it is used m the 
program. The symbol STEST has tlie value of the first 
(left most) byte of the data area reserved by iht DC 
instruction. Since the symbol on the DC (TEST) has 
the value of the rightmost byte, this type of EQU is 
useful for addressing the leftmost byte. The symbol 
REG2 in any statement is the same as using the number 
2. 



IBM 



Symboi Definition Instruction 



EQU-Equate Symbol 

The EQU instruction is used to equate symbols with 
register numbers, immediate data, or other arbitrary 
values. The EQU instruction defines a symbol by 
assigning to it the length and value of the expression 
in the operand field of the EQU instruction. The EQU 
instruction has the following format; 
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Figure 9. EQU Assembler Instruction 
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Data Defining Instructions 

Two data defining instruction statements are available; 
Define Constant (DC), and Define Storage (DS). These 
instructions are used to enter data constants and to 
reserve areas in storage. Eacii instruction caji have a 
name field entry (symbol) to which other instructions 
can refer. 



Subfield 2-Type: This subfieJd defines the form of the 
constant being entered. From the type specification, the 
assembler determines how it is to interpret the constant 
and translate it into the appropriate machine format. The 
type entry is specified by one of the letter codes A, B, C, 
D, X, or 1 (see Subfield 4 - Constant for related meanings). 
The type entry is required 



DC— Define Constant 

The DC instruction is used to initialize a storage 
location with a desired value. The IBM System/3 
Basic Assembler Language allows six types of constants: 
storage address, binary, character, decimal, hexadecimal, 
and integer. The format of the DC instruction is as 
follows: 



T" 



NAME (OPERATION | 



OPERAND 



symbol i 

or ! 

blank ' 



DC 



Duplication 
Factor 
(1) 



Type 

(2) 



Length 
(3) 



Constant 
(4) 



Notice that the operand of ihc DC statement consists 
of four subfields. The first three describe the constant 
and the fourth provides the constant. The only blanks 
permitted within an operand field are blanks embedded 
in a character constant. The symbol that identifies the 
DC statement receives the value of the address of the 
rightmost byte of the area defined by the statement. 



Su bfield I ~- Duplication Fac tor: Th i s s u b fiel d e n ab I e s th e 
programmer to repeat the constant in storage. The constant 
will be generated the number of times indicated by the 
entry in the first subfield. Tliis entry can be any unsigned, 
nonzero, decimal value, i through 65535. If this subfield 
is omitted, a duplication factor of 1 is assumed. This 
duplication factor is applied after the constant is fully 
assembled. If duplication is specified for an address cons- 
tant containing a positive location counter reference, the 
value of the location counter used in each duplication is 
increased by the length of the constant. 



Subfield 3~Length: The third subfield describes the 
number of bytes required by the constant. The entry for 
this subfield may be written two ways: 

1 . Ln, where n is an unsigned, nonzero, decimal value. 
The value of n is as follows: 

n = 1-256 for I, B, C, X constants 

n = 1-31 for the D constant 

n = 1-3 for an A constant 

2. L (absolute expression), where an absolute 
expression is enclosed in parentheses. The value 
limits for the absolute expression are the same as 
those for n in the previous paragraph. A location 
counter reference is not aJJowed in this expression. 

The total area allocated for this constant is the result of: 
Duplication Factor * Length=Total Area. The length 
entiy is required 



Subfield 4-Constant: This subfield suppHes the constant 
that was described in subfields 1 through 3. In general, the 
address constant (type A) is enclosed in parentheses, while 
the data constants (types B, C, D, I, and X) are enclosed in 
apostrophes. An entry in the constant subfield of a DC 
statement is always required 



Address Constant (A): Tliis constant is used to load an 
address into a storage area. 

Example: SYMBOL DC AL2 (BETA) 

In this example, the address represented by the symbol 
BETA wiD be stored in the 2-byte field addressed by 
SYMBOL. The full 24-bit final expression result is trun- 
cated on the left to fit the length of the constant. The 
maximum length of an address constant is 3. 



Binary Constant (B): This constant is used to create bit 
patterns and masks. 

Example: SYMBOL DC IBLlUOOll' 

The byte of storage addressed by SYMBOL will contain 
0001 001 1 . Truncation or padding with binary zeros 
occurs on the left if the constant is not the length speci- 
fied. This constant is enclosed in apostrophes. Each digit 
witliin the apostrophes represents a single bit in storage, 
and each eight bits specified will occupy one byte of 
storage. 



The 6-byte field addressed by SYMBOL will contain the 
following 12 hexadecimal digits: 00000008AC14. 

Truncation or padding with hexadecimal zeros occurs at 
the left. Each two digits between apostrophes will occupy 
one byte of storage. 



Integer Constant (I): This constant is used for fixed-point 
binary arithmetic. 

Example: SYMBOL DC lIL2'-7' 



Qiaracter Constant (Cj: This constant can be used to 
place a stnng of characters in storage. 



Exaw,ple: SYMBOL DC 



The byte of storage addressed by SYMBOL will contain a 
blank, and the byte of storage addressed by SYMBGL-16 
will contain the character P. 



A negative number may be used for an I constant. The 
negative constant is placed in storage in its two's-comple- 
ment form. This example would appear in storage in bit 
form as 1111111111111 001 . There is always a positive 
1CL17TLANT 5 PAYROLL' equivalent to a negative constant; in the above example, it 

is hexadecimal FFF9 or decimal 65,529. The range of I 
constants must be within -2^+1 to 2"^ -1 . If the number 
is positive, it is padded on the left with 0-bits. If the 
number is negative, it is padded on the left with 1-bits, 



Note: Two blanks have been padded on the right of the 
character string. 



If the constant is not the specified length, truncation or 
padding with blanks will occur on the right. Each 
character (including blanks) within the apostrophes will 
occupy a byte of storage. If an apostrophe occurs within 
the string of characters, it must be represented by a 
double apostrophe. 



Decimal Constant (D): This constant can be used for 
arithmetic purposes. 

Example: SYMBOL DC DL5* 125.66' 

Tliis constant will appear in zoned-decimal form in a 5-byte 
storage field, addressed by SYMBOL. The decimal point 
is used only as a convenience for the programmer, and 
is not assembled into the constant. The value of the 
constant is calculated without the decimal point. Trunca- 
tion or padding with decmial zeros occurs at the left of the 
field, if necessary. Signed decimal constants are permitted, 
making it possible to have a decimal constant with a nega- 
tive value. Each decimal digit will occupy one byte of 
storage. 



Hexadecimal Constant (Xj: This constant is used to 
associate a hexadecimal value with a symbol in a denned 
area in storage. 

Example: SYMBOL DC 1XL6'8AC14' 



DS-Defines Storage 

The DS instruction is much like the DC instruction. It 
assigns a symbol to an area of storage. Unlike the DC 
instruction, the DS instruction only reserves the area of 
storage, it does not insert data. A constant subfield cannot 
be used with a DS statement. The following illustration 
shows the DS format. 



NAME , OPERATION , 



OPERAND 



symbol 

or 
Wank 



DS 



J_ 



-h- — r 1 

j duplication , type [length 
I factor I I 

I I : 



A duplication factor of zero can be used in a DS statement 
if the programmer wishes only to assign a length to its 
corresponding symbol. The symbol will be given the value 
of the current location counter minus one. The type and 
length subfields must follow the same rules as for the DC 
statement. 

The duplication factor can be used by the programmer to 
specify a reserved area larger than 256 bytes. 

Example: SYMBOL DS 3CL100 

This instruction would reserve a 300'byte area, which would 
be referenced on the right by the name entry SYMBOL. 
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Listing Control Instructions 

The listing control instructions aid the programmer in 
documenting his assembler listing. These instructions are 
TITLE, EJECT, SPACE, and PRINT. 



TITLE ~ Identify Assembly Output 

The TITLE instruction enables the programmer to identify 
assembled object cards and assembler listings. 



NAME 



OPERATION I 



OPERAND 



label or blank TITLE 



a sequence of characters 
enclosed in apostrophes 



The name field entry can consist of a maximum of six 
characters. The first character may be numeric. The 
contents of the name field in the first TITLE card is punch- 
ed into the sequence field of all object cards produced by 
the assembler. This name field entry also appears in all 
listing header fields. 

The name on the TITLE statement is not the object pro- 
gram name, but may be the same as the object program 
name. See START- Start Assembly. The name field 
entry is used only for identification and may not be 
referenced by the program. 

The operand field contains a sequence of characters 
enclosed in apostrophes. Any embedded apostrophes must 
be represented by a double apostrophe. The contents of 
the name and operand fields are printed at the top of each 
page of the assembler listing, 

A program can contain more than one TITLE statement. 
When a new TITLE statement is read, the listing is advanced 
to a new page before the new heading is printed. The name 
fields of all subsequent TITLE statements are ignored by 
the assembler. Tlie TITLE instruction is not listed on the 
assembler listing, but it does increase the statement counter 
by one. Figure 10 shows an example of the TITLE 
statement. 
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Figure 10. Use of the TITLE Statement 



EJECT - Start New Page 

The EJECT instruction causes printing to begin at the top 
of a new page, under the page heading. Through the use 
of the EJECT statement, the programmer can separate 
routines in the assembler listing. The format of tlie EJECT 
assembler instructions is as follows: 



NAME I OPERATION 

1 



I 



OPERAND 



blank 



EJECT 



I Not Used 



In Figure II , the EJECT instruction is used to separate 
executable instructions from the data-defining assembler 
statements. The EJECT instruction is not listed on the 
assembler listing, but it does increase the statement counter 
by one. The coding example in Figure 1 1 shows the position 
of EJECT. Note that the corresponding statement number 
(4) has been omitted in the listing. Statement number 5 
appears at the top of the next page, under the heading. 
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SPACE - Space Listing 

This instruction is used to insert one or more blank lines 
between statements in the assembler listing: 



NAME 



blank 



OPERATION 



OPERAND 



SPACE 



decimal value or a blank 



An unsigned decimal value is used to specify the number 
of blank lines that are to be inserted. If the operand con- 
tains a blank, a zero, or a 1 , one blank line will be inserted. 
If the value of the operand exceeds the number of lines 
remaining on the current page, the instruction has the 
same effect on the listing as an EJECT statement. The 
SPACE instruction, like the EJECT instruction, is not 
listed on the assembler listing, but does increase the state- 
ment counter by one. 
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Statement 
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Name 


Operation 


Operand 
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Name 
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Figure U. EJECTInstruction 
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PRINT-Print Optionai Data 



Program Control Instructions 



The programmer can control the printing of an assembly 
hsting by using the PRINT instruction. A program can have 
any number of PRINT instructions. Each PRINT 
instruction controls the hsting until the next PRINT 
instruction is encountered. 



NAME 



OPERATION 



OPERAND 



blank 



PRINT 



operand 



The operand field can include entries from the following 
gi'oups (one or two operands for the Model 10, one, two, 
or three operands for the Model 12 and the Model 15): 

L ON— A listing Is printed. 
OFF— No listing is printed. 



fCTL — Input Format Control 

The ICTL statement permits the programmer to change 
the normal bounds of the source program staler.ienis. 
When included, the ICTL instruction must precede all 
other source statements. This instruction can be used 
only once during a program. An invalid or mispositioned 
ICTL statement causes termination of the assemibly. 



I \ 

NAME I OPERATION I OPERAND 



-4- 



-h 



blank 



ICTL 



two decimals In the form of B,E 



2. DATA-Constants are printed out in full on the 
assembler listing. 

NODATA-Only the leftmost 8 bytes of the con- 
slants are printed on the assembler listing. 

3. (Model 12 and Model 15 only) 

GEN— Print statements generated by the macro 
processor if not overridden by other listing 
control statements. 

NOG EN— Suppress printing of statements gen- 
erated by the macro processor. 
Operand entries must be separated by a comma. 

The ON, GEN and DATA conditions are assumed by the 
assembler unless otherwise specified by a PRINT instruc- 
tion. If an operand is omitted, it is assumed to be un- 
changed and continues according to its last specification. 
Both of the examples in Figure 12 would cause a listing 
to be printed witJi only the leftmost 8 bytes of the con- 
stants appearing in the listing. 
IBM 



PROG fi AM 


pnCGFJAMMf R 






1 3 J -t s 6 




I . 10 M I? 


'^ 


Ooerand 

M 1i 16 17 18 19 30 31 ?2 73 7t 2S ?6 -i? 28 ?9 30 31 32 33 34 35 


Al 


1 








P 


n 


\ H 


t1 




o 


N 


\ 


/v 





z> 


4 


T 


A 


































J> 


f% 










5 


C 


L 


3 


( 


A 


3 


C 


/ 












































: 











































































































































_ 




I— 




^ 









_ 












_ 








„ 


„ 






L 


„ 


_. 



IBM 



Or 





; ? J 4 5 s 


J 


8 ":'i"r;''l 1/ 


I.3| 


OtxKand 

14 IS 16 U 18 19 SO 21 T2 23 24 25 ?.5 77 78 79 30 ■ ' 3? 33 34 S "^ 










_ 




- 


P 

D 


^1 


// 


r 




/yo 


Z) 


A 


/ 


A 






























M 


f\ 


X 










5C 


L 


S 




A 


B 


C 


/ 








t — 






i 
1 












H 








- 




i - 






- 


-: 




- 




























1 






































! 


1 






_ 


H 




_ 


— . 


M 


„ 


^ 


^ 


_ 


— ! 










- 


_ 




i 




„ 


^ 




i 

H-h- 




T ■■ ■ 

1 ■ — 


__ 



Figure 12. The PRfNT Statement 
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The term B specifies the beginning column and the term 
E specifies the ending column of the source statement. 
The beginning column must be within columns 1-48. The 
ending column must be within columns 49-95. The 
column after the ending column must be blank. 

When an ICTL statement is not included in a source 
program, the beginning column is assumed to be column 
1, and column 87 is assumed to be the ending column. 
Figure 13 is an example of the ICTL insrruclion. \n 
Figure 13, the name field would start in cohimn 14 
and the remark field would end in column 80. 
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Figure 13, The ICTL Statement 

ISEQ— Input Sequence Checking 

The ISEQ instruction is used to check tlic sequence of 
source cards. Sequence checking begins with the first 
card after the ISEQ instruction. Tlie first sequence entry 
is taken from the sequence identification field of the 
ISEQ statement. The sequence entry on the next card is 
then compared to the previous sequence value. The ISEQ 
assembler statement has the followiiig Lffcct: 

1. The sequence entries on source-statement cards are 
checked for ascending order. 



2. Statements that are out of order and statements 
without sequence entries are flagged in the assembler 
listing. 

3. The total number of tlagged statements is noted at 
the end of the assembler listing. 

For example, with ihe sequerice values 13, 27, 31 , 6, 8, 
45, 47, \^ and 48, the card numbered 6 and the card with- 
out a sequence value would be out of sequence. The 
assembly does not stop due to a card being out of 
sequence order. In tliis example, the card numbered 6 
and the card without a sequence entry would be flagged 
in the error field, of the listing. If sequence checking is 
requested, there is a statement at the end of the listing 
showing that two cards were out of sequence. 

The assembler wiJl not check the sequence unless requested 
to do so by use of the ISEQ statement. 



The folio win 


g is the ISEQ 


instruction format; 




NAME 


OPERATION 


OPERAND 




blank 


ISEQ 


two decimal values in 
form L, R; or blank 


the 



The operand entries, L or R, specify the leftmost (L) and 
rightmost (R) columns of the field to be sequence checked. 
The value of L must be within the range of 73 through 96 
(inclusive). The length of the sequence field may be from 
1 to 8. If the programmer wants to discontinue sequencing, 
an ISEQ instruction card with a blank operand is inserted. 

The sequence field must be separated from the last column 
of the source statement by at least one blank position. 
The last column of the source statement is column 87 
unless otherwise specified by the ICTL assembler state- 
ment. The sequence field must not appear before the last 
column +1 of the source statement. If the sequence field 
is to start before column 89, the ICTL statement must be 
used to redefine the beginning and end of the source state- 
ment. For example: 

JCTL 1,71 Source statement is defined within 

colunms 1-71 

ISEQ 73, 80 Sequence field is in columns 73-80 



STAR T-Start Assembly. 

The START instruction may be used to initialize the 
location counter to a desired value at the beginning of a 
program. The format of the START instruction is; 



NAME 


OPERATION 


OPERAND 


symbol 


START 


a self-definmg value or blank 



The assembler uses the single self-defining term in the 
operand as the initial location-counter value. For example, 
either of the START instructions in Figure 14 could be 
used to indicate an initial assembly location of 2040. 

If the operand of a START instruction is blank, the 
location counter is initialized with a value of zero. If 
neither an ORG nor a START instruction is used to initial- 
ize the location counter, the initial value is also zero. 

A START instruction must not be preceded by any state- 
ment that affects or is dependent upon the setting of the 
location counter. 

The name entry in the name field of a START instruction 
provides the program with an identifier name called the 
module name. The module name may be the same as the 
first TITLE statement. 

Note: Certain naming restrictions apply when assigning 
names for your program. For more information on naming 
restrictions, see IBM System/3 Model 10 Disk System 
Control Programming Reference Manual, GC21-7512. 
IBM System/3 Model 12 System Control Programming 
Reference Manual, GC2 1 -5 1 30, IBM System/3 Model 15 
System Control Programming Reference Manual, 
GC21-5077 (Program Number :)704-AS]), oi IBM 
System/ 3 Model 15 System Control Programming 
Concepts and Reference Manual GC2 1 -5 1 62 (Program 
Number 5704-AS2). 

This program name may be used for program linkage. If 
the START card is not included in the program, or if the 
name field is blank, a default program name is assigned. 
See the MODULE NAME MISSING diagnostic in 
Appendix C System/ 3 Assembler - Source Language 
Error Codes and Diagnostics. 
IBM 
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Figxire 14. Using START to Initialize ihii Location Counter 
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ORG—Set Location Counter 

The ORG statement sets the location-counter value. 



USING - Use Register for Base- Displacement Addressing 



NAME I OPERATION | OPERAND 



blank 



ORG 



blank operand or an expression A 
optionally foMowed by two absolute 
expressions In the form A, B, C 



The location counter is set to the smallest vaJue greater 
than or equal to A which is C more than a mul tipie of B. 
In the following example, A can be either a relocatable or 
absolute expression; B and C must be absolute expressions. 
The default values for B and C are 1 and 0, respectively. If 
the second operand (B) is omitted, the third operand (C) 
must also be omitted. 



The USING statement specifies the register to be used for 
base-displacement addressing and also specifies the base 
address that the assembler v/ill assume to be in that register 
at object time. The USING statement does not load the 
base address into the register specified. This must be done 
by the programmer before the register c^m be used for 
base-register displacement addressing. See Addressing in 
this section. 



I 
NAME I OPERATION 



blank 



OPERAND 



-t- 



USING 



V,R 



dtrrent 

Location 

Counter 

275 
340 
350 
504 
750 



1000 







New 






Location 


B 


C 


Counter 


100 


50 


350 


IOC 


50 


350 


100 


50 


350 


256 





512 




— 


1000 



All symbols used in the expression A must have been 
previously defmed. The value specified by the ORG state- 
ment must be greater than or equal to the starting location- 
counter value. 

If previous ORG statements have reduced the location- 
counter value for the purpose of redefining the current 
program, an ORG instruction with a blank operand is used 
to set the location counter to the previous maximum 
assigned address plus one (see Figure 15). 



In tht preceding format, term V represents an expression. 
Term R represents an absolute expression with a value of 
1 or 2. Term R specifies the index register assumed to 
contain the base address represented by tlie term V. The 
programmer has the option c^T changing llie base register 
or base address at any time by ihe insenion of another 
USING statement. Two rSING si-nenients enable the 
programmer to use the two index registers as base registers 
to two different portions oi main storage. 



In Figure 16, register 2 is loaded vvitli the address of 
ADRESl , which v/iU be used as the base address in instruc- 
tions following the USING statement. 
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DROP - Drop Base Register 



The DROP instruction specifies a base register that is no 
longer to be used as a base register. The programmer can 
reinitiate the base register with another USING 
instruction. 



1 1 
NAME 1 OPERATION | OPERAND 


blank i ENTRY | any relocatable 

1 symbol found in the 
1 name field of the 
1 ' current program 



1 

NAME f OPERATION 



blank 



-h 



DROP 



OPERAND 



specified register 



The symbol used in the ENTRY operand can also be refer- 
enced by any other program provided that program uses 
the same symbol in the operand of an EXTRM statement. 
See the example given in the discussion of EXTRN for 
additional information on the use of ENTRY. 



The operand must contain an absolute expression of 
either 1 or 2. This absolute expression represents the 
register that is no longer to be used as a base register. 
The contents of the register are unaffected by the DROP 
instruction. Figure 17 shows an example of the DROP 
instruction. Another USING statement is used to 
specify register 1 as the new base register. 
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Figure 17. Example of the DROP Statement 

ENTRY ~ Identify Entry Point to Program 

This instruction identifies symbols, defined in the current 
program, which can be used as entry points from other 
programs. 



EXTRN - Identify External Symbols 

This instruction identifies symbols, used in the current 
program, which are defined in another program. Each 
symbol in the operand of an EXTRN statement must be 
identified by an ENTRY statement or be the module name 
in some other program. 



1 1 

NAME 1 OPERATtON | OPERAND 


1 ! one relocatable symbol 
blank 1 EXTRN | not found in the name 

1 . field of the current pro- 
l ' grann, optionally followed 
1 1 by an absolute expression 
1 1 in parentheses 



The external symbol cannot be used in a Name field in the 
same program that describes that symbol as an EXTRN. 

An EXTRN subtype can be specified for the EXTRN 
symbol by following the symbol with an absolute 
expression enclosed in parentheses. The value of the 
absolute expression cannot be less than zero nor more 
than 255. Any symbol in the expression must have been 
previously defined. For an explanation of the subtype 
values and their meanings, see IBM System/ 3 Overlay 
Linkage Editor Reference Manual, GC21-7561. 



Basic Assembler L-anguage 25 



Figure 18 shows how ENTRY and EXTRN can be used to 
make two or more programs act as one main program through 
sharing data and control. The main program defines sym- 
bols A, B, and C and identifies them as entry points. These 
same symbols are identified as EXTRNs (external symbols) 
in the subroutine. This allows the subroutine to use these 



symbols just as it would if the symbols had been defined 
in the subroutine. SUBROl, on the other hand, is defined 
and identified as an entry point by the subroutine and as an 
EXTRN, external symbol, by the main routine. These four 
symbols - A, B, C, and SUBROl ~ can now be used inter- 
changeably by both the main routine and the subroutine. 
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Subroutine 



The main routine has control first. It executes instructions 
and then branches to SUBROl which is defined as an entry 
point in the subroutine. Instructions in the subroutine are 
executed. Notice that the subroutine uses symbols A, B, and 
C which were defined in the main routine. Control is then 
passed back to the main routine. 

Note: The actual resolution of symbols between programs 
is not performed by the assembler. 



END-End Assembly 

The END instruction terminates assembly of the program. 
The operand of this instruction can contain an expression 
(usually a name field entry) which specifies the address 
to which control is to be transferred after the program is 
loaded. The END instruction must be the last statement 
in the program. The relocatable expression in the operand 
must not contain external symbols. The start-of-control 
address must be specified for programs loaded with tlie 
absolute loader. 



NAME , OPERATION ' OPERAND 



blank i END 

I 



I a relocatable expression or a blank 



Figure 19, shows an END statement. In this example, the 
program receives control at the address corresponding to 
BEGIN when it is executed. 
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Figure 18. Example of ENTRY and EXTRM Statements 



Figure 19. Desig[iatjng an Entry Point With the END Statement 
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Part 2. Programmer's Guide 



ASSEMBLER CONTROL STATEMENTS 

Two control statements are used: The HEADERS state- 
ment and the OPTIONS statement. Up to 45 of these 
control statements may be used, in any order. Each state- 
ment is limited to six operands. All control statements 
must appear before any assembler source statements. 



nnnnn is a one to tlve character decimal siring whose value 
must be less than 65536. If more than one C0ML4 or 
C0ML5 operand is present in the assembler control state- 
ments, the length in the last valid operand is used for the 
appropriate subtype control section length. The lengths 
specified are placed in the ESL records for the subtype 4 
or 5 EXTRNs. 



HEADERS Statement 



OPTIONS Statement 



The HEADERS control statement specifies control infor- 
mation other than output control information to the 
assembler. The programmer may specify a category level 
for the object module through the CATG operand, or the 
length of the control section for any subtype 4 or 5 
EXTRNs in the assembler through the C0ML4 and C0ML5 
operands. For an explanation of category levels and 
subtype 4 and 5 EXTRNs, see IBM System/ 3 Overlay 
Linkage Editor Reference Manual, GC21-7561 . 

The format of the HEADERS statement with the CATG 
operand is: 







biHEADERSbiCATG-nnnnn 




\ \ ^ 

Column 2 ^ At least 
or greater one blank 


^ Decinnal category 
level 



nnnnn 

nnnnn is a one to five character decimal string whose value 

must be less than 00256. If more than one CATG operand 

appears in the assembler control statements, the value of 

the last valid operand is used for the module category level. 

The module category level is placed in the module ESL 

record. 

The format of the HEADERS statement with the C0ML4 
and C0ML5 operands is: 



t!4HEADERSbiCOML4-nnnnn, C0ML5-nnnnn 






Column 2 
or greater 



At least 
one blank 



Decimal control 
section length 



An OPTIONS statement is a control statement for 
assembler control options. All OPTIONS statements must 
precede the source deck. The user may specify the follow- 
ing assembler options on OPTIONS statements: DECK, 
NODECK, LIST, NOLIST, XREF, NOXREF, REL, 
NOREL, OBJ, OBJ(T), OBJ(P), NOOBJ. XBUF-nnnnn 
and NOXBUF are also available to users having program 
5704-AS2. They may appear on one statement in any 
order, but must be separated by commas. If the pro- 
grammer prefers, separate statements may be used for 
each option. The OPTIONS keyword must start in 
column 2 or liigher (the preceding column must be blank), 
and there must be one or more blanks between the key- 
word and the selected options. Blanks are not allowed 
between the selected options. 

The following example shows options appearing on one 
statement: 











biOPTIONSbiDECK. LIST, NOXREF, REL 






1 \ 

Column 2 At least one blank between 
or greater. keyword and options. 



More than one OPTIONS statement may be used. In the 
following example, three statements are used: 



KiOPTIONStADECK 



bOPTIONSbiLIST 



bOPTIONSbNOXREF 
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The following list provides a brief description of all the 
options available: 

Option Explanation 

DECK The object program is punched. When an 

object program is punched, it is preceded 
by a // COPY OCL card and followed by 
a // CEND OCL card. These cards are 
provided for placing the object program in 
the R library with the library maintenance 
utility program (SMAINT). 

NODECK The object program is not punched. 

LIST The following sections of the assembler 

listing are printed (see Assembler Listing 
in this section for a description of the 
listings): 

• Options information 

• External symbol list 

• Source and object program listing 

• Diagnostic listing 

• Error summary statements 
NOLIST Only the following listings are printed: 

• Options information 

• Any statements in error and the 
associated diagnostics 

• Error summary statements 

The NOLIST option overrides all 
assembler PRINT statements. 

XREF A cross-reference listing is generated. 

NOXREF A cross-reference listing is not generated. 

REL A reloaitcshjc object program is produced. 

NOREL An absolute object program is produced. 

Note: Absolute object programs can only 
be used as stand-alone programs; that is, 
programs which are not dependent on any 
other disk management system program. 



OBJ or 
OBJ(T) 

OBJ(P) 



NOOBJ 



On the Model 10 an absolute loader will pre- 
cede the absolute deck if DECK is specified 
and if MFCU2 is specified on the // PUNCH 
statement. On the Model 12 and Model 15, 
an absolute loader will precede the absolute 
deck if DECK is specified and if the 
SYSPCH device is MFCU, 1442, or MFCM 
(Model 15 only). The loader punched will 
program load only on tlie device type on 
which it was punched. A blank card is in- 
serted between the absolute loader and the 
object program. This blank card and the 
OCL cards included with the object program 
do not affect the operation of the absolute 
loader and may be discarded. 

To prevent cataloging of the absolute object 
program when NOREL is specified, you 
should specify NOOBJ. 

The object program is placed in the R 
library with a retain entry of temporary. 

The object program is placed in the R library 
with a retain entry of permanent. 

The object program is not placed in the R 
library, (See Placing A ssembler Subroutines 
in R [Routine! Library in this section.) 



If no OPTIONS statement is used, the assembly is processed 
as though DECK, LIST, REL, XREF, and OBJ had been 
specified. NOXBUF is also assumed with program 
5704-AS2. 

XBUF-nnnnn Specifies the size of the disk external buf- 
fers the user has requested. From one to 
five numeric digits may be used to specify 
the size of the disk external buffers (pro- 
gram 5704-AS2 only). External buffers 
should not be specified due to performance 
considerations if the program size including 
physical disk buffers does not exceed 56K. 
However, if external buffers are specified, 
they should equal the size of the physical 
disk buffers that normally would be set 
aside within the program. 

NOXBUF Specifies no external buffers are requested 
for the program (program 5704-AS2 only). 

If DECK or OBJ is entered on the OPTIONS statement and 
there are errors in the assembly, a halt is issued. 
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OCL STATEMENTS FOR ASSEMBLER 



OCL For Loading the Assembler 



The loading and running of a disk-system program, 
including the assembler, is done under control of a group 
of programs called disk system management. The user 
tells disk system management to run a program through 
the use of Operation Control Language (OCL) state- 
ments. It is necessary to have a set of OCL statements 
each time a program is run. This section discusses the 
OCL statements required for use of the assembler. For 
a complete discussion of OCL, see IBM System/3 
Model JO Disk System Control Programming Reference 
Manual; GC2 1-7512, JBM System/3 Model 12 System 
Control Programming Reference Manual, GC21-5130, 
IBM System/ 3 Model 15 System Control Programming 
Reference Manual, GC2 1-5077 (Program Number 
5704-ASl), or IBM System/3 Model 15 System 
Control Programming Concepts and Reference 
Manual(?TOgram Number 5704-AS2X GC21-5162. 



Source Program on System Input Device (Cards) 

Figure 20 is a sample set of OCL statements to load the 
assembler when the source program is on cards. The unit 
parameter (Fl) on the // LOAD statement specifies 
where the assembler resides. The codes for the disk 
drive upon v;hich the assembler resides are: 



• Rl 

• Fl 

• R2 

• F2 



— drive 1 

- drive 1 

- drive 2 

— drive 2 



The assembler language source program can be obtained 
from either a system input device, a source library entry, or 
the macro processor. If the source records are obtained 
from an 80-column device, they are padded with 16 
blanks before being placed in the SSOURCE file. In this 
case, the user should provide an ICTL statement to prevent 
the assembler from processing the sequence field of the 
80-column record. 
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The first // FILE statement specifies the attributes and 
location of the file used for source program residence 
during the assembly process. 

The second // FILE statement specifies attributes and the 
location of the file used for object output of the assembler. 
The third // FILE statement specifies attributes and 
location of the file used t^or assembler working storage 
during the assembler process. 

The SW0RK2 // FILE statement is optional on the 
Model 10 Disk System. ]f it is not supplied, the assembler 
allocates the work space. However, by specifying the 
proper placement oi^ file locations, as in Figure 20, this 
file statement improves the performance of the assembler. 
It should, therefore, be specified. 



In all three // FILE staiCFiients. tbo PACK and UNIT 
parameters indicate the location ol the file named in the 
NAME Parameter. In addition to R] . Fl, R?.. and F2, the 
UNIT parameter can specify 1)1 , D2, D3, and D4 for the 
Model 15. The RETAIN parameter should refiect a scratch 
file(s). The TRACKS parameter contains the number of 
tracks required for that file. The user should choose the 
number of tracks required in accordance with the space 
requirements charts in the Assembly Time Data File 
Requirements section. See IBM System/S Model 10 Disk 
System Co n tro I Program m ing R eference Manua I, 
GC21-7S12JBM System/3 Model 12 System Control 
Programming Reference Manual, GC2 151 30, and IBM 
System/ 3 Model 15 System, Control Programming 
Reference Manual (FrogTcLW Number 5704-ASl), 
GC2 1 -5077 , or IBM System/ J Model 15 System Control 
Programming Concepts and Reference Manual, GC21 -5 162, 
(Program Number 5704-'AS2) for further information. 



Source Program in a Source Library 

Figure 21 shows a sample set of OCX suite meats used when 
the source program is in the source library. 
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Figure 20. Assembler OCL Statements (Source Program on Cards) 
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Note that the additional OCL statement // COMPILE is 
required. The following entries in the figure are optional: 



//SWITCH Considerations 



PUNCH This statement specifies where an object 

deck is punched. For more information on 
statement, see IBM System/ 3 Model JO Disk 
System Control Programming Reference 
Manual, GQ2\'1S\2JBM System/ 3 
Model 12 System Control Programming 
Reference Manual, GC2 1 -5 1 30, IBM 
System/3 Model 15 System Control 
Programming R eference Manual, GC2 1 - 5 7 7 
(Program Number 5704-ASl), ox IBM 
System/3 Model 15 System Control Pro- 
gramming Concepts and Reference Manual, 
(Program Number 5704-AS2),GC2 1-5 162. 

OBJECT This operand is used to indicate to the 
operand assembler the library unit used when the 

OBJ option is used on the OPTIONS 

statement. 

The // LOAD and // FILE statements are as described in 
the first example. The // COMPILE statement specifies 
both the location of the source library and the required 
source program within the library. The // COMPILE 
statement may appear at any position between // LOAD 
and // RUN. 

Macro Processor-Produced Source Program 

The macro processor creates a source program on the 
SSOURCE file. To indicate that the macro processer has 
already loaded the SSOURCE file, external indicator Ul 
must be turned on. This is done through a // SWITCH 
statement. If this indicator is on when the assembler is 
loaded, the SSOURCE file will not be loaded. 

In the following OCL stream, the source program has been 
created on the SSOURCE file: 

IBM 







! > ! ! 1 1 1 1 n I I I II 

ndicate that the source fif 
has been loaded by the macro 
processor step 



^References the source file created' 
. by the macro processor step. 



-r- 



Cy\ optional on Model 10 Disk System 

Note: For more information on the macro processor, see 
IBM System /3 Models 10 and 12 System Control Program- 
ming Macros Reference Manual, GC2 1 -7 562 , or IBM 
System/3 Model 15 System Control Programming Macros 
Reference Manual, GC2 1-7608. 



The external indicator Ul indicates that the macro 
processor has loaded the SSOURCE file and the source 
program is not in the input stream. If this indicator is 
on when the assembler is loaded, the SSOURCE file 
is not loaded. 

When the SSOURCE file is to be loaded, external 
indicator Ul must be off. This can be ensured by 
entering the following statement after the assembler 
// LOAD statement: 





^_ 


__*..4-.H 

' i ^ 


-f- 


- ft 


-•1 1"'- 


^, 1_. . 


V 


1 


//]fewi 1 


'CH ^X 


X xjxix V 


\f. 




--j -^- 


i 1 








1 


' 




—l\,. 


\ 1 1 








H 


-4--^ — 1 


--+-^1- \ 


■]\-\ 


' ._- 


— it 




■ 1 - 

— v^- 



OCL For Calling the Assembler 

It is possible for the user to store a portion of the OCL 
statements required for use by the assembler in 
a procedure library. They may then be called with a 
// CALL statement, thus reducing the number of 
written OCL statements required for each assembly. 
Examples are included for source programs on cards and 
for source programs in a source library on disk. 

Source Program on Cards 

If the source program is a deck of cards, the OCL cards 
necessary to assemble the program, and the order in 
which they must appear, are as follows: 
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In this example, ASM is the procedure name. Fl refers 
to the disk pack upon which the assembler OCL procedure 
is stored. In this case, it would be the fixed disk on 
drive one. 



Programmer's Guide 31 



Source Program in a Source Li bran/ 

If the source program is stored on disk in a source 
library, the OCL format must be as follows: 



IBM 
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In this exaiTipie, ASM is the procedure name and Fl 
refers to the fixed disk on drive ] . SUBRA is the name 
of the source program. The user must substitute his 
own source program name, Rl is the disk pack upon 
which the source library resides. 

Sample Assembler Procedure Stored in Procedure 
Library 

A sample assembler procedure is shown in Figure 22. The 
format is as it would appear in the procedure library. 
The // LOAD statement and // FILE statements are as 
described in preceding examples. 



• HEADER record 

• ESL (external symbol list) record 

• TEXT-RLD (text-relocation directory) records 

• END record 

Record Formats 

The following paragraphs describe the format of each 
record type. 

HEADER Record 

A HEADER record with record type H is added by the 
overlay linkage editor when it processes the assem.bler 
object program. The HEADER record format is: 



I H I Object program information field 
1 2 

• Byte 1 Record type identifier H. 

• Bytes 2-64 Object program information field. 



64 



OBJECT PROGRAM DESCRIPTION 



The assembler converts the source program into 
a set of control information, machine language mstruc- 
tions, and data, all of which coljectively are called an 
object program. There is one object program produced 
per assembly. Each object record is originally produced 
as a 64-byte Held. U^ the object program is punched on 
the MFCU, it is translated into a 96-byte punch record 
(bytes 2 to 64 are translated 4 for 3 for punching; 
for every three S-bit byles, four card code characters 
are created). See Object Program After Punch Conversion 
in this section. Each object program generated by the 
assembler contains four types of records: 



ESL Record 

The object program name, that is the module name and all 
EXTRN and ENTRY symbols are placed in the ESL record. 
The ESL record format is; 



s 


Length - 


1 ESL Entries X'OO' 


1 


2 


3 62 63 64 


• 


Byte 1 


Record type identifiers. 


• 


Byte 2 


Length -1 of the ESL entries. 


• 


Bytes 3-62 


ESL entries. Up to five MODULE, 


ENTRY, and/or EXTRN fields. 


• 


Bytes 63-64 


Filled with hexadecimal zeros. 



AucinUw Coding Form 




(j7 Optional on Model 10 D'sk Syste 



Figure 22. Sample Assembler Procedure in Source Library 
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TEXT-RLD Records 



Object Program After Punch Conversion 



Text records and RLD pointers are combined in this type 
of input record. The text portion of each record contains 
the object code for the program, while the RLD pointers 
indicate where the address constants and relocatable 
operands of the text are located. If the NOREL option 
has been selected on the OPTIONS control card, there 
will be no relocation indicators in the record. The format 
for the TEXT-RLD record is: 



II I I ■ I 

T Length-1 Assembled Address Text*-{X'00'r*RLD 

I I I 1 1 1 



1 2 

• Byte 1 

• Byte 2 

• Bytes 3-4 

• Bytes 5-64 



3 4 5 64 

Record type identifier T. 

Length - 1 (of text only). 

Assembled address of the low order (rightmost) 
text byte in the record. 

Text starts at byte 5 and goes right, RLD 
starts at byte 64 and goes left. The leftmost 
end of the RLD section is nwrked by 
hexadecimal zeros, which fill the space 
between the Text and RLD sections. The end 
of text is always followed by at least one 
byteof X'(X3'. 



END Records 

The last record in each object program is an END record. 
It contains the entry address of the object program. If the 
user did not include an operand in his source program 
END statement, the object program END record generated 
by the assembler will contain the address XTFFF*. The 
END record format is: 



















Entry 


END card program 






E 




Address 








1 




2-3 4 




• 


Byte 1 


Record type identifier E. 


• 


Bytes 2-3 


Entry address of the object program. 


• 


Bytes 4-64 Program to transfer control to Entry address. 



All four types of records (HEADER, ESL, TEXT-RLD, 
and END) assume the same format when they are punched 
into cards. The punched record format, using 96-column 
cards, is as follows: 



Record ID 



Data Field 



Self Check 
Number 



Identification 
Sequence Field 



85 86 



88 89 



96 



Column 1 
Columns 2-85 

Columns 86-88 



Record type identifier (H, S, T, or E), 

Data field, transformed 4 for 3. (For every 
three 8-bit bytes, four card code characters 
are created for SYStem/3 96-column cards.) 

A 2-byte self check number transformed 
4 for 3, to 3 bytes. 



Columns 89-96 Identification/sequence field. 



The punched record format, using 80-coJumn cards, is as 
follows: 



Record ID Data Field 



Blank 



Self Check 
Number 



Identification 
Sequence Field 



1 2 64 65 69 70 72 73 80 

Column 1 Record type identifier (H, S, T, or E). 

Colunnns 2-64 Data field, bytes 2 to 64 of the object record. 

Colunnns 65-69 Blank. 

Colunnns 70-72 A 2-byte self check number transformed 4 for 3, 
to 3 bytes. 

Columns 73-80 Identification/sequence field. 



Note: When an object module is punched, it is preceded 
by a // COPY OCL card and foJJowed by a // CEND OCL 
card. These cards are provided for placing the object 
module in the R Ubrary with the Library Maintenance 
program (SMAINT). 
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ASSEMBLY TIME DATA FILE REQUIREMENTS 

There are three data files necessary at assembly time: 

1. Source file (NAME-SSOURCE) 

2. Object file (NAME-SWORK) 

3. Work nie(NAME-SW0RK2) 

Model JO Disk System: These files must be located on 
5444 disk drives. If a // FILE statement is not provided 
for $W0RK2, the assembler allocates its own work space. 

Model 12: These files must be located on the simulation 
area. 

Model 15: These files must be located on either 3340, 
5444, or 5445 disk drives. 

Source File (SSOURCE) 

The source file is used by the assembler for storage of the 
source program. During the job initialization procedure, 
a disk system manageinent program places the source 
program in the source file (if the macro processor has not 
loaded the file). The source records are obtained from 
either the system input device or a source library using 
the // COMPILE statement- (See OCL statements for 
Assembly in this sectjon.) Each source record contains 
<^6 bytes, so that eight records occupy three disk 
sectors in the source Pile. (One sector = 256 bytes, and 
is the smallest addressable unit on a disk.) Figure 23 
is a source file space requirements table showing how 
many tracks are required for the size of the source pro- 
gram indicated. 

If the assembler is processing a source file created by 
the macro processor, the // FILE statement for SSOURCE 
must correspond to the SSOURCE file produced in the 
macro processor run. 

Object File ($WORK) 

The object file is used by the assembler for intermediate 
storage of the object program. The object records are 
stored in four 64-byte entries per sector. (See Object 
Program Before Conversion in this section.) Because each 
track in the object file can contain 96 records on the 5444, 
80 records on the 5445. or 192 records on the 3340, two 
tracks usually are sufficient for most assemblies. 



Work File ($WORK21 

The work file is a scratch file used by the assembler 
throughout the assembly process for intermediate data 
storage. The file contains four types of data: 

1 . Intermediate text 

2. Symbol table entries 

3. Cross-reference data 

4. Error information 

Intermediate Text 

intermediate text is made up of fixed length (] 0-byte) 
records. The number of fixed length records is variable 
for each source statement, and is dependent on the 
statement type and the contents o{ the operand field. 

The following rules can be used to determine intermediate 
text file requirements. (The rules apply only to error- 
free source statements. A statement that contains errors 
generally requires less storage space.) 

AU Ins mictions: 

• One record for each machine or assembler instruction, 
or comment statement. 

• One record if there is a name field entry. 



Machine Instructions: One additional record for each 
term in the operand field. 



Source Program Size 
(Statements) 


Number of Tracks Required 
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1/ ' 8 
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1 ;^ 8 



*0r simulation area 
Figure 23. Sou'ce File Space Requirements Chart 
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Assembler Instructions: 



Symbol Table Entries 



• END, ENTRY, EQU, EXTRN, ORG, USING - One 

additional record for each term in the operand field. 

• ISEQ, PRINT, SPACE, START ~ One additional record 
for each instruction. 

• TITLE - Additional records = N/8 (plus one for any 
non-zero rennainder); where N is the number of 
characters in the TITLE operand field. 

• DS/DC 



Whenever a symbol is used in the name field of an instruction 
(except a TITLE statement) it becomes a symbol table 
entry. When the assembler user requests a cross reference, 
all symbol table entries are added to the work file immedi- 
ately after the intermediate text. The symbol table entries 
are also 10-byte, fixed-length records. Assuming an average 
of one name entry for every four source statements, one 
sector per 100 source statements is required. 



Cross- Reference Data 



— One additional record for duplication factor 
(default or specified value). 

- One additional record for each term in the length 
specification. 



Cross-reference data is written in tlie same area as the 
intermediate text and symbol table entries and does not 
impose any additional space requirements. 

Error Information 



• DC 

- Address constant— One record for each term in 
the address constant expression. 

— All other constants-Additional records - N/8 
(plus one for any nonzero remainder); where N is 
the number of bytes required to contain the 
converted constant plus one. 

Figure 24 is a sample list of instructions together with the 
intermediate text space requirements for each. 







Text Space 


DECK 


START 


3 


ENTRY 


SLC A(2),A 


5 




MVC A(2),C0N1 


4 




ALC A(2),CON2 


4 




HPL XTF',X'FF' 


3 


A 


DS CL2 


4 


C0N1 


DC IL2'50Cr 


5 


C0N2 


DC IL2'-320' 


5 




END ENTRY 


2 



Figure 24. Intermediate Text Space Requirements 



Each statement in error requires a 10-byte error record; 
therefore, a track will contain at least 600 error records. 



^ork File Space Requirements 

Figure 25 is a work file space requirements table showing 
the number of tracks required for the number of source 
statements indicated. The requirements for intermediate 
text and symbol table entries are summed to get the 
table values. Approximately 40 sectors per 1 00 source 
statements are needed to cover most varieties of source 
statements. If a $W0RK2 // FILE statement is not pro- 
vided on the Model 10 disk system assembler, the source 
file ($SOURCE) size is used for the work file size. 



Source Program Size 
(Statements) 


Number of Tracks Required 


100 


5444* 


5445 


3340 
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200 
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"Or simulation area 

Figure 25. Work FUe Space Requirements Chart 
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OPERATING PROCEDURES 

Placing Assembler Subroutines in R (Routine) Library 

Assembler subroutines can be placed on disk in the R 
library by tv^o methods. 

1 . Punchmg an object deck and using the Library 
Maintenance program (SMAINT) to place it in the 
R hbrary. 

2. Specifying OBJ in the OPTIONS statement to 
place the object program directly into the R 
library. TTie retain entry can be eitiier temporary 
or permanent. 

For more information on the OCLand utility control state- 
ments needed to use SMAINT, see IBM System/ 3 Model 10 
Disk System Control Programming Reference Manual, 
GQ2l-15\2JBM System/3 Model 12 System Control Pro- 
gramming Reference Manual, GC2 1 -5 1 30, or IBM System/3 
Model 15 System Control Programming Reference Manual, 
GC21-5077. 

Placing a Punched Object Program in the R Library 

In the sample procedure shown below, the subroutine 
SUBRA is being placed in the R library from a punched 
object deck. 

//LOAD Statement: In this sample procedure, SMAINT 
is the routine which interrogates the // COPY statement 
and calls the proper routine to accomplish the desired 
results. 

Fl is the disk pack upon which the utility program resides. 

// COPY Statement: The FROM parameter names the 
device holding the subroutine to be entered. The 
READER option must be used to copy the assembler 
punched object program. 



The LLBRARY parameter, R, specifies a relocatable library. 
The NAME parameter gives the name of the subroutine to 
be entered. This name must be the same as the program 
name (that is the name on tiie START instruction). The 
following names are restricted and cannot be used in this 
parameter: 

• ALL 

• DIR 

• SYSTEM 

The TO parameter specifies the physical destination of 
the object program (in this case, Rl). 

The RETAIN parameter specifies the ultimate disposition 
of the object program. 



// CEND (Copy End) Statement: The // CEND 
statement must follow the object deck. 



//END: The // END statement must be the end of all 
library maintenance decks. 

Placing an Object Program Directly in the R Library 

When the object program is placed directly in the R 
library, it has the following characteristics in the library. 

• Name of the object program is the module name 
specified in the START instruction or the default 
module name. See the MODULE NAME MISSING 
diagnostic in Appendix C System/3 Assembler - 
Source Language Error Codes and Diagnostics, 

• Retain entry in the library is temporary if OBJ or OBJ(T) 
is specified and permanent if OBJ(P) is specified. 
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Library to receive the object program is the disk speci- 
fied in the OBJECT operand of the // COMPILE state- 
ment. The default disk is the program disk. 



Using Assembler Object Program with the Program Loader 

The user may have tJie need to load a user-written assemb- 
ler object program as a stand-alone program. To use 
an assembler object program in this manner it is necessary 
to have the program punched into an object deck on the 
system punch device. The assembler language user ob- 
tains an absolute loader by specifying DECK and NOREL 
on the OPTIONS card (see NOREL option under OPTIONS 
Statement). The 96-column loader contains six cards and 
the 80-colunin loader contains one card. 

It is the user's responsibility to ensure: 

1 . That he has not referenced any address greater than 
the storage capacity of the System/3 on which the 
program is to be executed. 

2. That the address specified on the START instruction 
statement is greater than X'FF'. (The START 
assembler statement must specify the address at 
which the program is to be loaded.) 

3- That the END statement indicates the start-of-control 
address. 

Note: If absolute object decks for more than one assembly 
are to be loaded together, then the loader must be re- 
moved from the front of the second and all subsequent 
decks, and the END card must be removed from the 
back of all decks except the last. 

IBM 5424 MFCU 

The procedure for loading and executing an assembler 
object program on the IBM 5424 MFCU is as follows: 

1. Clear MFCU. 

2. Place assembler object deck, including the loader, 
in primary hopper. 

3. Press MFCU START. 

4. Ready the printer. 



5. Set IPL SELECTOR to MFCU for Mode! 10 Disk 
System or ALT for Models 1 2 and 1 5 . 

6. Press console PROGRAM LOAD to load and execute 
the assembler object program. (Ll or L2 halt is 
issued for error or not ready conditions on the 
MFCU.) 

IBM 2560 MFCM (Model 15 only) 

The procedure for loading and executing an assembler 
object program on the IBM 2560 MFCM is as follows: 

1. Clear MFCM. 

2. Place assembler object deck, including the loader, 
in primary hopper, 

3. Press MFCM START. 

4. Ready the printer. 

5. Set IPL SELECTOR to ALT. 

6. Press console PROGRAM LOAD to load and execute 
the assembler object program. (Ll halt is issued for 
error or not ready conditions on the MFCM.) 

IBM 1442 Card Read Punch (Models 12 and 15) 

The procedure for loading and executing an assembler 
object program on the IBM 1442 Card Read Punch is as 
follows: 

1. Clear 1442- 

2. Place assembler object deck, including the loader, 
in hopper. 

3. Press 1442 START. 

4. Ready die printer. 

5- Set IPL SELECTOR to ALT. 

6. Press console PROGRAM LOAD to load and execute 
the assembler object program. (Ll halt is issued for 
error or not ready conditions on the 1442.) 
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ASSEMBLER LISTING 

An important part of the assembler's output is the assem- 
bler listing. The assembler's printed output is on the system 
printer (under control of the // PRINTER OCL statement 
for Models 12 and 15). 

The listing is a printed reproduction of the source program 
and the corresponding object code generated for it to- 
gether with other important information. Figure 26 at 
the back of tills section is a sample listing. Specifically, 
tiie listing consists of the following: 

Control Statements 

Any OPTIONS or HEADERS statements specified by 
the user are printed and specification errors are noted, 
A list of OPTIONS in effect during the assembly is then 
pnnted. The page is ejected before tiie control statement 
information is listed. 
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External Symbol List (ESL) 

The object program name, EXTRNs, and ENTRYs will 
appear in the folio v/ing format: 



Type 

MODULE 
ENTRY 
EXTRN 



Symbol 
Program name 
ENTRY symbol 
EXTRN symbol 

Source and Object Listing 



The source and object listing consists of the following: 

• Error code for improperly coded statements (see 
Diagnostics in this section). 

• Location counter value, in hexadecimal, of the high 
order address of the object code generated by the 
corresponding source statement. 

• The object code, in hexadecimal, generated by the 
corresponding statement. 

% The value, in hexadecimal, of the expression in the 
operand field of the EQU, USING, DROP, and END 
statements, the storage address, in hexadecimal, of the 
low order address of the DC constants, and DS storage 
areas. 

• Statenient number, in decimal, for each statement, 
including comment statements. These numbers are 
assigned by the assembler. The statement number is a 
four-digit fietd which limits the assembly to 9,999 
statements. 

• The source image, which is formatted according to the 
size of the printer used; 



Source Record Fold point for 96- Fo'd point for 1 20- 

column printer or 126-column printer 



Source Statement (Colunnns 1-88) 



ID/SEQ 



_J_ 



52 53 



76 77 88 89 96 



On a 96-column printer, the ID/SEQ field is left- 
justified in columns 89-96 of the print line. If 
columns 53-88 of the source statement are blank, 
hne 2 will not be printed. 



line 1 



Object code 
field 



Columns 1-52 of the 
source statennent 



ID/SEQ field 



35 36 37 



88 89 



96 



line 2 



Columns 53-88 of 
source statement 



53 



88 



2. 



On a 120-column or 126-column printer, the 
ID/SEQ field is left-justified in columns 113-120 
of the print Hne. If columns 77-88 of the source 
statement are blank, or if the start of the ID/SEQ 
field on the source record is less than column 77, 
line 2 will not be printed. 



line t 


Object code 
field 


% 


Columns 1-76 of the 
source statement 


ID/SEQ field 


line 2 


1 35 36 


37 112 113 120 

Columns 77-88 of 
source statement 








101 112 







With the 132-column printer, the complete source 
image is printed on one line. 



Object code 
field 



Columns 1-88 of the 
source statement 



ID/SEQ field 



35 36 37 



124 125 



132 



The following examples assume the ID/SEQ field is in 
columns 89-96 of the source record; 

Note: The ID/SEQ field may be from one to eight adja- 
cent chaiacters long and may reside anywhere between col- 
umns 73-96. 



Note: Statements generated by the macro processor 
contain a plus symbol (+) in column 36. 
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Diagnostics 



Cross- Reference List 



The source and object program listing includes error codes 
for improperly coded statements. These errors are listed 
again, with a message, at the end of the source and object 
program listing under the heading DIAGNOSTICS. This 
list provides the following information; 



If XREF is specified on the OPTIONS statement this list 
includes all symbol names referred to in the source program. 
The following columns are included: 

• Symbol— The symbol name. 



• Statement— The statement number, in decimal, (assigned 
by the assembler) of the statement which is in error. 

• Error code— a 3-digit alphameric code. See 
Appendix C: Systemj 3 Assembler- Source Language 

Error Codes and Diagnostics for a list of error codes and 
translations. 

• Message— A translation of the error code indicating the 
type of error made. 

Also included under DIAGNOSTICS are the following 
error summary statements: 

• A count of the total statements in error in the assembly. 

• A count of total sequence errors in the assembly if 
sequence check is requested. 



• Length— The decimal length attribute of the symbol in 
bytes. 

• Values— Value, in hexadecimal, of the symbol. 



• Defined— Statement number, in decimal, where the 
symbol is defined. 

• References— Statement numbers, in decimal, where the 
symbol is referenced. Symbolic references to data areas 
and machine registers whose contents may be altered by 
execution of a machine instruction are flagged with an 
asterisk. 

At the end of the cross-reference list, the error summary 
statements are printed again. 
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SUBRC 

SYMBOL TYPE 

SURRC MUOULF 



hXFEKMAL SYMBOL LlbT 



VER 00, MOD 00 01/30/76 PAGE 1 




SUBRC SAMPLE EXIT SUf1M0l;T I ,\.; — M F L ^>i^^ INOICAruk 
ERR LOG OBJECT CCOt Ai^Dk SfMT SHUkCE STATEr^ENf 



VER 00, MOD 00 01/30/76 PAGE 2 



cooo 

0000 34 0& ocn 

0004 36 CB 0C31 
0008 3^ CO 0C2F 
OOOC 34 02 0C2O 

0010 C2 02 ucrc 

OOU 2C 01 UC IP 05 
0019 78 00 OC 
OOIC F2 90 OS 
OOIF 85 02 02 
0022 85 02 05 
0025 BC C3 OC 
0028 C2 02 OCCC 
002C CO 87 OCCC 
0030 0006 



003 1 
OCOP 
fFFF 



7 

9 
10 
L I 
12 
13 
14 
IS 
16 
\ 7 
I'i 
10 
70 
? I 
22 

2 \ 
24 
2S 
2f) 
27 
2>! 
?1 
30 
11 
32 

3 3 
34 
J4 



* MA, ye 
« rjNCT 



SUORC. 

* I T(- FIcLD AMD iNOrCATCR 



EXIT SIJQKOUTINE 
PAkAMtT tR3. 






GFT 

fcsr 



^Ef 

cnvd 



bTARr 
ST 

^ 

ST 
ST 

LA 

MVC 

TBN 

JF 

L 

L 

MVI 

LA 

OC 

EuU 

E^JO 



THE CODE GENEPATEC BY THE COMPILER IS AS FOLLOWS: * 

* 
B SULHC * 

OC ILl'F I ELC LENGTH-l ' * 

OC AL2'A0CKESS OF klortT OF FIELD'' ♦ 

OC XLl'UC * 

OC XLl' INL IC(1T0K MASK* * 

OC XLl'KLGrSTE^ 1 DISPLACEMEWr » ♦ 

« 



GET+3.ARR 

COxjOtAkk 

RET+3,AKK 

SAVE+3.2 

*-*.2 

TEST + 2(2) ,!?{ ,21 

*-*( I 1 ) t *-* 

SAVE 

2(,2) ,2 

•3( t2) ,2 

0( ,2),C'C« 

*-*,2 

#-* 

IL2*6* 



SAVE PAKM AOCR 

iNCKCMEiSjr TO RETLSN 

SAVt WETUKSJ 

SAVE XR2 

GET PARMETEK ADDRESS 

i^CVt IN MASK AND C I SPL AC t MENT 

TEST INOICATGR 

bSJDICATUR OFF 

GFT CONTROL FIELD AODRESS 

GET LCOK UP ACDkESS 

/'OVE IN C'C 

RESTORE 

RETURN 



TOTAL STATFMENTS l^' |-RRuR I 'J TtjlS ISSL^^OLY 



SUBRC 








CRiJSS RtFEREN'CL 




SYMBOL 


LEN 


VALUC 


CGFN 


HEFC^Fr.'CrS 


VER 00, MOD 00 01/30/76 PAC 


APR 


001 


OOOf 


CC34 


002C 0C2 1* 0022 




cnN6 


GC2 


C031 


C0J3 


C021 




GET 


0C4 


COLC 


CG24 


C020* 




RET 


cc<. 


C02C 


CC32 


0C22* 




SAVE 


C04 


02 f 


C031 


CC23* CC27 




Sl^BRC 


UCl 


oocc 


r,ci9 






TEST 


0C3 


00 IS 


CC2 6 


CC24* 




TOTAL 


STATFf 


£NTS 


N ERRiJR IW THIS flSSt^-lBLY = 





Figure 26. Sample Assembler Listing 
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External Symbol List (ESL) Table Size 

The ESL table is an execution time main storage table 
containing the module name (START statement name or 
ASMOBJ) and each EXTRN and ENTRY symbol defined 
in an assembly. The total of EXTRNs and ENTRYs 
allowed in a single assembly is limited by the ESL table 
size. 

Using the Model 10 disk system assembler, the limit is 74 
EXTRNs and ENTRYs. 

Using the Model 12 and Model 1 5 assembler, the limit varies 
with the amount of storage available in the execution partition. 
The limiting sizes and associated storage ranges are: 

Storage Available Limit of EXTRNs and ENTRYs 
lOK 84 

12K 124 

14K 169 

16K 209 

18K-48K 254 
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Appendix A. Machine instructions 



MACHINE LAfsiGUAGE INSTRUCTION FORMATS 
Operation Code 

The first byte or cacli instruction, the operation code, 
specifies the adoi'essing modes to be employed by the 
instruction in bits througli 3, and the operation to be 
performed in bits 4 througii 7. 



• Register address 

• Data selection 

• Branch or skip condition 

• Device address and functional specifications 



QCode 

The second byte of each instruction is the Q code. In 2- 
address formats, the Q code is always a length count. In 
other formats, depending upon the operation specified, the 
Q code can be: 

• Length count 

• Emrnediate data 

• Bit mask 



Control Code 

The third byte of an instruction in the Command Format 
contains additional data pertaining to the command to be 
executed. 



Storage Addresses 

For instructions in the 1 -operand and 2-operand formats, 
the third byte of the instruction and all bytes following 
are storage address information. 



4 Bytes 



Op 
Code 



Length | Destination Source 

Count I Address Address 

1 Displacement Dispiacement 



78 



15 16 



23 24 



31 



5 Bytes 



Op 


Length 


Direct 


Source 


Code 


Count 


Destination 


Address 






Address 


Displacennent 



7 S 



15 16 



31 32 



5 Bytes 



Op 


Length 


Destination 


Direct 


Code 


Count 


Address 


Source 






Displacement 


Address 



15 16 



23 24 



39 



6 Bytes 



3 Bytes 



Op 
Code 


Q 
Code 


Address 
Displacennen! 



718 



15116 



23' 



r. 



Immediate Data 

Bit Mask 

Register Address 

Branch or Skip Condition 



— -^ I Data Selection 



4 Bytes 



Op 
Code 



Destination Address 
Source Address 
Branch Address 



Q 
Code 



Direct 
Address 



Op 


Length 


Direct 


Direct 


Code 


Count 


Destination 


Source 






Address 


Address 



78 15 16 

\B) One-Address Fornnats 

3 Bytes 



31 



78 



15 16 



31 32 



47 



Op 
Code 



Code 


Control 
Code 



7'8 

J 



151 16 



23 



® 



Two-Address Formats 



I Device Address 

I and functional 

J specifications 

Skip Conditon 

Halt Identifier 

(C) Command Format 
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Op 


Mnemonic Type 


04 


ZAZ 






06 


AZ 


■^-2 ADDRESS 


"^ 


07 


sz 






08 
OA 
OB 
OC 
OD 


MVX 

ED 

ITC 

MVC 

CLC 


Direct 




Op 


Q 


|Operand One 


Operand Two | | 










OE 


ALC 






OF 


SLC 






14 


ZAZ 








16 


AZ 




-*- 2 ADDRESS ^ 




17 


SZ 








18 
1A 
IB 
1C 


MVX 
ED 
ITC 
MVC 


Direct Indexed 






Op 


Q 


Operand One D2 






1 






ID 


CLC 






IE 


ALC 


R1 




IF 


SLC 






24 
26 
27 


ZAZ 

AZ 

SZ 


-*-2 ADDRESS-^-^ 




28 
2A 
2B 
2C 


MVX 
ED 
ITC 
MVC 


Direct Indexed 






Op Q Operand One [ D2 






1 






2D 


CLC 


1 




2E 


ALC 


R2 




2F 


SLC 






30 


SNS 






31 


LIO 


1 ADDRESS 




34 


ST 






35 
36 
38 


L 
A 
TBN 


Direct 






Op 


Q 


Operand One 




39 


TBF 


^ 


4bytes->J 






3A 


SBN 






3B 


SBF 






3C 


MVl 






3D 


CLI 






3E 


SCP* 






3F 


LCP* 






44 


ZAZ 






46 


AZ 


-*- 2 ADDRESS *- 




47 


SZ 






48 
4A 
4B 
4C 


MVX 
ED 
ITC 
MVC 








Op 


Q 


D1 


Operand Two 












4D 


CLC 






4E 


ALC 


R1 




4F 


SLC 






54 


ZAZ 






56 


AZ 


, 2 ADDRESS 




57 


SZ 






58 
5A 
5B 
5C 


MVX 
ED 
ITC 
MVC 


Indexed 


J 




Op 


Q 


D1 D2 








4 by les — >n 


5D 


CLC 






5E 


ALC 


R1 R1 




5F 


SLC 







Op 


Mnemonic Type 


64 


ZAZ 




66 

67 


AZ 
SZ 


-^2 ADDRESS* 


68 
6A 
6B 


MVX 

ED 

ITC 






Op 


Q D1 


D2 








6C 


MVC 




tes J 




6D 


CLC 




6E 


ALC 


Rl R2 


6F 


SLC 




70 


SNS 




71 


LIO 


1 ADDRESS 


74 


ST 


4 *' 


75 
76 
78 


L 
A 
TBN 




1 


Op Q 


D1 








79 


TBF 


-^— 3byt( 










7A 


SBN 




7B 


SBF 




7C 


MVl 


Rl 


7D 


CLI 




7E 


SCP* 




7F 


LCP* 




84 


ZAZ 




86 


AZ 


87 


SZ 




88 
8A 
8B 


MVX 

ED 

ITC 


Indexed Direct 




Op 


Q 


D1 [ Operand Two 








8C 


MVC 




8D 


CLC 




BE 


ALC 


R2 


8F 


SLC 




94 


ZAZ 




96 


AZ 


-*- 2 ADDRESS-^ 


97 


SZ 




98 
9A 
9B 
9C 


MVX 
ED 
ITC 
MVC 


Indexed 




Op 


Q 


D1 


D2 








9D 


CLC 




9E 


ALC 


R2 Rl 


9F 


SLC 




A4 


ZAZ 




A6 
A7 


AZ 
SZ 


-<-2 ADDRESS^ 


AS 
AA 
AB 


MVX 

ED 

ITC 


Indexed 




Op 


Q 


D1 


02 








AC 


MVC 


_^ 


4 bytes »J 




AD 


CLC 


' 


AE 


ALC 


R2 R2 


AF 


SLC 




• Mode 


H 15 only. 




Legend: 






D\ - 


- Displacem 


ent, operand 1 


D2 - 


- Displacem 


ent, operand 2 


Rl - 


- Register 1 




R2 - 


- Register 2 
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• 



Op 


Mnemonic Type 


BO 
81 


SNS 
LIO 


1 ADDRESS 


B4 
B5 
B6 
B8 
89 
8A 


ST 

L 

A 

TBN 

TDF 

SBN 


Indexed 


I OpI 1 D1 1 


BB 
8C 


S8F 

MVl 


XR2 


8D 


CLI 




8E 


SCP* 




8F 


LCP* 




CO 
CI 
C2 


8C 

TIO 

LA 


Direct 


Op 


a 1 Address] 1 






DO 
D1 
D2 


8C 

TIO 

LA 




1 Op [ O 1 D2 1 +XR^ 


EO 
El 


BC 
TIO 




1 Op 1 G 1 02 +XR2 


E2 


LA 




FO 


HPL 




F1 
F2 
F3 
F4 


APL 
JC 
SIO 
CCP« 




Op 


qI R 1 1 


[-*-3 bytes ^ 



*Model 15 only. 
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Op Codp 






Q 
Code 

Byte 


J n.^ 


,,.^^, 


Toial 
Insir 
Length 


Type 


J 


. 




(one b^ 
- Biis4 


.7 


-I F 11- r 



















1 


2 


3 


^ 


Ji 


6 


7 


8 


9 


A 


B 


C 


D 


E 


F 




!■ 










ZAZ 




AZ 


SZ 


MVX 




ED 


irc 


MVC 


CLC 


ALC 


SLC 




2 ByiRs 

DllGCI 




2 Gyies Direct 


6 


X 


1 










ZAZ 




AZ 


sz 


MVX 




ED 


iTC 


(VI VC 


CLC 


ALC 


S! C 




1 Byte Disp 
Index-By R1 


5 


X 


'^ 




. ., 






ZAZ 




AZ 


SZ 


MVX 


! to 


irc 


MVC 


CLC 


ALC 


SLC 




1 Byte Disp 
Index-By R2 


5 


X 


3 


SNs ■.;.■: 




ST 


L 


A. 




iBN^ TGf 1 SeN 


S8F 


'vIVI 


CLl 


SCP" 


LCP* 




^><cr 


A 


V 


'1 


1 






?.^.:- 


'.Z 


sz 


'■■■■" \'' X 


^ SD 


ITC 


MVC 


CLC 


'- 


s- z 


t~ 


1 BylR 

Disnlci cement 
lnaeKf;d 

B ■/ R 1 




ZBv^'-sDircC; 




X 


^1 








'' .? 




AZ 


sz 


MVX 


ED 


'TC 


MVc; 


CLC 


'■nLC 


SLC 




1 Byte Disp 
Index-By R1 


4 


X 


G 






1 ,,.,! 


y-'- .-.' 


iZ 


\"\'X 


■ i-iD 




f. /C 


;lc 


AlC 


5S.C 




1 Byti-: DiSp 
Index By K?. 


^ 


X 


7 


S^J.S 


' I.IO 






ST 


L 


A 




lb. -J 


iBt 


SBN 


SBf 


•.,Vi 


CLl 


SCP' 


LCP'i 




^^^X'C 


3 


Y 


e 










,;;A? 




mZ 


iZ 


iWVX 




LD 


ITP 


MVC 


CLC 


A ; (": 


o'. C 


■1 Bvu^ 

DiSj.liil^r.'fTli^liL 

By R2 


t 


>M»-0 ■ i ^ 




y 


\ 






^:a.l 




AZ 


sz 


MVX 




t"D 


MC 


.MVC 


Ci c i ^-1. z 


SI C 


1 Byte Disp 
Index-By Rl 


4 


X 


A 


\ 










sz 


'■■.'. v X 




f.L; 


1 1 U 


VK'C 


L" :„ z , • 1.; 






1 Byte DJSp 
tndex-Ey R? 


4 


y. 


B 


SW5 


LIO 






3T 


L 


A 




TBN 


T&f- 


SDK 


SBi- 


MVl 


CLl SCP* 


LCP* 




I^^>"<C^ 




' 


C 


BC 


TIO 


lA 


























k / 


ZL.v^.s:.....-.r 


'■• 


z 


[] 


BC 


MO 


l'" 




















i 




1 Byit- D:s:. 
lndr^x-L3v R i 


3 


z 


L 


BC 


TlO 


LA 




















■ \ /\ 


1 ByiH D... 
index -By R-f' 


3 


z 


h 


i^^\ 


^.Kl 


v: 




CCP* 






. .^ 








1 i 






1 /' \ 

z 


\ 


^^><C 


3 


F 













Op 


Q 


■• Operand — 










1 










1 


01 










02 


















01 


1. 


1 " ^ 

; Di 


Dl 




^ ■ ' 


Oj". 




' Di 

: 










r 1 

. 7 












:.- ■; 








D2 


D2 








D2 
















1 01 








■| 






.., i 





"Model 15 oniy 



MNEMONIC OPERATION CODES (MACHINE) 
Instruction* Mnemonic Operation Code 



Zero and Add Zoned Decimal 


ZAZ \ 




Add Zoned Decimal 


AZ ] 




Subtract Zoned Decimal 


sz 
i 




Move Hex Character 


MVX 




Move Characters 


MVC ) 


> Two-address 


Compare Logical Characters 


CLC 


Format** 


Add Logical Characters 


ALC 1 




Subtract Logical Characters 


SLC 




Insert and Test Characters 


ITC 1 




Edit 


ED / 




Move Logical Immediate 


MVI \ 




Compare Logical Immediate 


CLI 




Set Bits On Masked 


SBN 




Set Bits Off Masked 


SBF 




Test Bits On Masked 


TBN 




Test Bits Off Masked 


TBF j 




Store Register 


ST I 


One-address 


Load Register 


L \ 


Format** 


Add to Register 


A / 




Branch On Condition 


BC 




Test I/O and Branch 


TIO ' 




Sense I/O 


SNS 




Load I/O 


uo 




Load Address 


LA 




Load CPU*** 


LCP , 




Store CPU*** 


SCP / 





*** These instructions are for the Model 15 
but they can also be generated on the 
Model 12 through the macros $LCP, $SCP, 
and SCCP. For more information concerning 
the use of the Model 12 macros, see 
IBM System/3 Models 10 and 12 System 
Control Programming Macros Reference 
Manual, GC2\'7 562. 



Advance Program Level 

Halt Program Level 
Start I/O 
Command CPU*** 



APL 

HPL 

SIO > Command 

CCP ( Format** 



Jump On Condition 



JC 



* For information concerning specifications for the use of 
these instructions with the Model 10, see the IBM System /3 
Model 10 Components Reference Manual, GA2I-9103, 
or with the Model 15, see the IBM System/3 Model 15 
Components Reference Manual, GA2 1-9 193. 

** See Machine Language Instruction Formats in this 
appendix. 
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EXTENDED MNEMONIC CODES 

Instruction 

Move Hex Character (MVX) 

Move to Zone from Zone 
Move to Numeric from Zone 
Move to Zone from Numeric 
Move to Numeric from Numeric 

Branch On Condition (BC) 



Mnemonic Operation Code Q Code 



MZZ 


X'OO' 


MNZ 


X'02' 


MZN 


x-or 


MNN 


xw 



Branch 

Branch High 

Branch Low 

Branch Equal 

Branch Not High 

Branch Not Low 

Branch Not Equal 

Branch Overflow Zoned 

Branch Overflow Logical 

Branch No Overflow Zoned 

Branch No Overflow Logical 

Branch True 

Branch False 

Branch Plus 

Branch Minus 

Branch Zero 

Branch Not Plus 

Branch Not Minus 

Branch Not Zero 



B 


X'87' 


BH 


X'84' 


BL 


X'82' 


BE 


X'Sr 


BNH 


X'04' 


BNL 


X'02' 


BNE 


x-or 


BOZ 


X'88' 


BOL 


X'AO' 


BNOZ 


X-OS' 


BNOL 


X'20' 


BT 


X'lO' 


BF 


X'90' 


BP 


X'84' 


BM 


X'82' 


BZ 


X'8r 


BNfP 


X'04' 


BNM 


X'02' 


BNZ 


X'or 



Jump On Condition (JC) 



Jump 




J 


X'87' 


Jump High 




JH 


X'84' 


Jump Low 




JL 


X'82' 


Jump Equal 




JE 


x'sr 


Jump Not High 




JNH 


X'04' 


Jump Not Low 




JNL 


X'02' 


Jump Not Equal 




JNE 


X'or 


Jump Overflow Zoned 


JOZ 


X'88' 


Jump Overflow Logical 


JOL 


X'AO* 


Jump No Overflow 


Zoned 


JNOZ 


X'08' 


Jump No Overflow 


Logical 


JNOL 


X'20' 


Jump True 




JT 


X'lO' 


Jump False 




JF 


X'90' 


Jump Plus 




JP 


X'84' 


Jump Minus 




JM 


X'82' 


Jump Zero 




JZ 


x'sr 


Jump Not Plus 




JNP 


X'04' 


Jump Not Minus 




JNM 


X'02' 


Jump Not Zero 




JNZ 


X'or 


Command CPU (CCP- 


-Model 15 only) 






Supervisor Call 




SVC 


X'lO' 
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Assembier Language to Machine Language Relationships 

The following charts show the relationship between a 
machine instruction statement as coded by the System/3 
Basic Assembier Language programmer and the machine 
language as generated by the assembler. 

For example, the instruction coded by the programmer is 
ZAZ FINAL(5),D0NE(1,1). From the second line o{ the 
first of the charts we can develop the relationship between 
the instruction and the machine code as follows (assume 
FINAL is a relocatable symbol with value X'131B' and 
DONE is an absolute symbol with value X'BA'): 

Machine instruction statennent 
as input to assembler 

ZAZ FINAL (5), DONE (1, 1) 



ZAZ A1{L1),D2{L2,R1) 



_L 



14 



LI - L2 



L2-1 



V\\ 



Address Al 



iDisp D2 
If rem R1 



14 



X 



rr 



13 



1 



IB BA 



Five-byte machine instruction generated by assennbler 



Used in this manner, the following charts show what 
machine code results from a particular assembler language 
statement, and vice versa, what assembler language format 
obtaLns a particular machine code fomiat. 

The abbreviations used on the following pages mean: 

Al Direct address, operand 1 

A2 Direct address, operand 2 

Dl Displacement, operand 1 

D2 Displacement, operand 2 

Ll Length of operand 1 

L2 Length of operand 2 

Rl Register 1 

R2 Register 2 

RX Local storage register 

I Immediate data 
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Assembler Instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


Q-Code 


Operands 


Byte 1 


Byte 2 


Byte 3 


Byte 4 


Byte 5 


Byte 6 


ZAZ 
ZAZ 

ZAZ 

ZAZ 

ZAZ 

ZAZ 

ZAZ 

ZAZ 

ZAZ 


A1(L1),A2(L2) 
A1(L1),D2(L2,R1) 

A1(L1),D2(L2,R2) 

D1(L1,R1),A2{L2) 

D1(L1,R1),D2{L2,R1) 

D1(L1,R1),D2(L2,R2) 

D1(L1,R2),A2(L2) 

D1{L1,R2),D2(L2,R1) 

D1{L1,R2),D2{L2,R2) 




t 










04 


L1-L2| L2-1 


Address A1 


Address A2 










1 1 








14 


L1-L2I L2-1 

1 
1 


Address A1 1 Disp D2 
1 1 from R1 










1 t 




24 


L1-L2i L2-1 

1 

1 


Address A.1 | Disp D2 
1 from R2 












44 


L1-L2i L2-1 


Disp 01 Address A2 
fromRI ' 1 














54 


LI-L2I L2-1 

1 


Disp D1 I Disp D2 
from R1 ^ from R1 
















64 


L1-L2i L2-1 

1 
I 


Disp D1 1 Disp D2 
from R1 1 from R2 
















84 


L1-L2i L2-1 


Disp D1 1 Address A2 
fron-i R2 | I 














94 


L1-L2i L2-1 

1 

1 


Disp D1 I Disp D2 
from R2 ' from R1 


















A4 


LI-L2I L2-1 
1 

1 


Disp D1 
from R2 


Disp D2 
from R2 














NOTES: 

If LI or L2 is not specified, the implied length is used. 

If D1 or D2 is relocatable, the assembler computes the displacement based on the USING Instruction. 
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Assembler Instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


Q-Code 


Operands 


Byte 1 


Byte 2 


Byte 3 


Byte 4 


Byte 5 


Byte 6 


AZ 
AZ 

AZ 

AZ 

AZ 

AZ 

AZ 

AZ 
AZ 


A1(L1),A2(L2) 
A1(L1),D2(L2,R1) 

A1{L1),D2(L2,R2) 

D1{L1,R1),A2{L2) 

D1(L1,R1),D2(L2,R1) 

D1{L1,R1),D2(L2,R2) 

D1(L1,R2),A2(L2) 

D1(L1,R2),D2(L2, Rl) 
D1{L1,R2),D2(L2,R2) 








• t 








06 


L1-L2;L2-1' Address A1 | Address A2 










1 J 








16 


L1-L2 [ L2-1 
1 


Address A1 i Disp D2 
1 , from R1 












1 




26 


L1-L2 JL2-1 

1 


Address A 


1 1 Disp D2 
1 from R2 










1 




46 


L1-L2 [ L2-1 

1 


Disp D1 
from R1 


Address A2 
I 












1 


56 


L1-L2 ' L2-1 
1 

1 


Disp D1 
from R1 


Disp D2 
from R1 


1 

1 










1 

1 
1 
1 


66 


L1-L2 [L2-1 

1 


Disp D1 
from R1 


Disp D2 
from R2 












86 


L1-L2 JL2-1 

1 


Disp D1 
from R2 


Address A 2 
1 












1 

1 

1 

1 




96 1 


L1-L2JL2-1 1 

1 1 


Disp D1 
from R2 


Disp D2 
from R1 














A6 


L1-L2I L2-1 
1 


Disp D1 
from R2 


Disp D2 
from R2 


1 

1 












1 


NOTES: 

If LI or L2 is not specified, the implied length is used. 

If D1 or D2 is relocatable, the assembler computes the displacement based on the USING instruction. 
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Assembler Instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


0-Code 


Operands 


Byte 1 


Byte 2 


Byte 3 


Byte 4 


Byte 5 


Byte 6 


SZ 
S2 

S2 

SZ 

SZ 

SZ 

SZ 

SZ 

SZ 


A1(L1},A2(L2) 
A1(L1),D2{L2,R1) 

AKLD, D2(L2,R2) 

D1(L1,R1),A2{L2) 

D1(L1,R1),D2(L2,R1) 

D1(L1,R1),D2(L2,R2) 

D1(L1,R2),A2(L2) 

D1{L1,R2),D2(L2,R1) 

D1(L1,R2),D2(L2,R2) 








, 


1 






07 


L1-L2|l2-1 


Address A1 


Address A2 










I 1 








17 


L1-L2 ' L2-1 

1 


Address A1 j Disp D2 
! from R1 












1 




27 


L1-L2 i L2-1 
1 


Address A1 1 Disp D2 
1 fromR2 








j 1 




47 


L1-L2 ] L2-1 

1 


Disp D1 ' Address A2 
from R1 1 , 










' 




57 


L1-L2 j L2-1 
1 


Disp D1 1 Disp 02 
from R1 1 from R1 










1 






67 


L1-L2' L2-1 


Disp 01 ' Disp D2 
from R1 1 from R2 










1 






87 


L1-L2 j L2-1 


Disp 01 1 Address A2 
from R2 1 t 








1 


1 




97 


L1-L2 1 L2-1 
» 


Disp 01 1 Oisp 02 
from R2 , from R1 


1 
1 








I 


1 
1 




A7 


L1-L2| L2-1 

( 


Oisp 01 ' Oisp 02 
from R2 1 from R2 


1 

1 








\ 


1 


NOTES: 

If LI or L2 is not specified, the implied length is used. 

If D1 or D2 is relocatable, the assembler computes the displacement based on the USING instruction. 
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Assembler Instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


Q-Code 


Operands 


Byte 1 


Byte 2 


Byte 3 


Byte 4 


Byte 5 


Byte 6 


MVX 
MVX 

MVX 

MVX 

MVX 

MVX 

MVX 

MVX 

MVX 


A1(I),A2 
A1{I),D2(,R1) 

A1(I),D2(,R2) 

D1(I,R1),A2 

D1(I.R1).02(,R1) 

D1{I,R1),D2{,R2} 

01(I,R2),A2 

01(I,R2),D2(,R1) 

D1(I.R2),D2(,R2) 




1 . 1 1 1 


08 


1 1 Address A 


1 j Address A2 | | 






. 


I 




18 


i Address A 


1 ' Disp D2 
1 from R1 


1 










1 




28 


i 1 Address A 


1 Disp D2 
1 from R2 


1 

1 










1 


48 


1 Disp 01 
1 from R1 


Address A2 

1 


1 

1 










f 




58 


I 1 Oisp 01 
] from R1 


Disp D2 
from R1 












, 1 




68 


1 1 Disp 01 

1 from R1 


Disp D2 
from R2 


' 1 

' 1 
















88 


1 Oisp 01 
from R2 


Address A2 
1 


1 
1 












1 


98 


1 1 Oisp 01 

1 from R2 


Disp D2 
from R1 














A8 


1 ' Oisp D1 
' from R2 


Disp 02 
from R2 














NOTES: 

1 may be specified on either operand, and must have the value X'00',X'01 ',X'02', or X'03'. 

If 01 or 02 is relocatable, the assembler computes the displacement based on the USING instruction. 

For the extended mnemonics of the MVX instruction, l-field information is inherent in the mnemonic and the l-field 
is omitted from the operand field. See Extended Mnemonic Codes for the extended MVX and the associated G-codes. 
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Assembler Instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


Q^ode 


Operands 


Bytel 


Byte 2 


Byte 3 


Byte 4 


Byte 5 


Byte 6 


MVC 
MVC 

MVC 

MVC 

MVC 

MVC 

MVC 

MVC 

MVC 


A1{L1),A2 
A1(L1).D2(,R1) 

A1{L1),D2(,R2) 

D1(L1,R1),A2 

D1(L1,RV),D2(,R1) 

D1(L1,R1),D2(,R2) 

D1(L1,R2),A2 

D1(L1,R2).D2(,R1) 

D1(L1,R2),D2(,R2) 




» 












OC 


L1-1 


Address A1 
1 


1 Address A2 

• 










1 1 








10 


L1-1 


Address A1 Disp D2 
1 ' fromRl 










1 1 




2C 


L1-1 


Address A1 | Disp D2 
1 from R2 








1 




4C 


L1-1 


Disp D1 i Address A2 
from R1 1 \ 














5C 


L1-1 


Disp 01 ' Disp D2 
from R1 1 from R1 










j 






6C 


L1-1 


Disp D1 ' Disp D2 
from R1 1 from R2 










1 






8C 


Ll-1 


Disp D1 1 Address A2 
from R2 , 








1 






9C 


L1-1 


Disp D1 1 Disp D2 
from R2 1 from R1 










I 






AC 


Ll-1 


Disp D1 1 Disp D2 
from R2 | from R2 








1 


NOTES: 

LI may be specified on either operand; if LI is not specified, the implied length of operand one is used. 

If D1 or D2 is relocatable, the assembler computes the displacement based on the USING instruction. 



54 



Assembler Instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


Q-Code 


Operands 


Byte 1 


Byte 2 


Byte 3 


Byte 4 Byte 5 


Byte 6 


CLC 
CLC 

CLC 

CLC 

CLC 

CLC 

CLC 

CLC 

CLC 


A1(L1),A2 
A1{L1),D2(,R1) 

A1(L1),D2(,R2) 

D1{L1,R1),A2 

D1(L1,R1),D2(,R1) 

D1{L1,R1),D2(,R2) 

D1(L1,R2),A2 

D1{L1,R2),D2(,R1) 

D1(L1,R2),D2(,R2) 






' ' 








OD 


L1-1 


Address A1 | Address A2 










1 1 








ID 


L1-1 


Address A1 1 Disp 02 
1 1 from R1 










1 , 




2D 


L1-1 


Address A1 ! Disp 02 
, 1 from R2 










40 


L1-1 


Disp 01 1 Address A2 
fromRI 1 1 






j 


1 




5D 


LM 


Disp 01 ' Disp 02 
fromRI 1 fromRI 


1 

1 








1 


1 

1 




6D 


Ll-1 


Disp 01 j Disp 02 
fromRI ' fromR2 








1 




80 


LM 


Disp 01 1 Address A2 
from R2 i | 








1 


1 




90 


LM 


Disp 01 I Disp 02 
from R2 | from R1 


1 

1 








1 


1 




AD 


LM 1 Disp 01 1 DispD2 
, from R2 ] from R2 


1 
1 






1 1 


1 


NOTES: 

LI may be specified on either operand; if LI is not specified, the implied length of operand one is used. 

If D1 or D2 is relocatable, the assembler computes the displacement based on the USING instruction. 
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Assembler instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


Q-Code 


Operands 


Bytel 


Byte 2 


Byte 3 


Byte 4 


Byte 5 


Byte 6 


ALC 
ALC 

ALC 

ALC 

ALC 

ALC 

ALC 

ALC 

ALC 


A1{L1),A2 
A1{L1),D2(,R1) 

A1/L1),D2(,R2) 

D1(L1,R1),A2 

D1(L1,R1),D2(,R1) 

D1(L1,R1),D2(,R2) 

D1(L1,R2),A2 

D1(L1,R2).D2{,R1) 

D1(L1,R2),D2(,R2) 






(I < 






OE 


L1-1 


Address A1 | Address A2 










1 I 








IE 


LM 


Address A1 | Disp D2 
1 from R1 














2E 


L1-1 


Address A1 ' Disp D2 
1 from R2 












4E 


LM 


Disp D1 1 Address A2 
from R1 1 ' 














5E 


LM 


Disp D1 Disp D2 
from R1 ' from R1 
















6E 


L1-1 


Disp 01 1 Disp D2 
from R1 , from R2 












8E 


LM 


Disp D1 1 Address A2 
from R2 | ' 














9E 


LM 


Disp 01 Disp D2 
from R2 ' from R1 
















AE 


LM 


Disp D1 ' Disp 02 
from R2 1 from R2 










1 


NOTES: 

L1 may be specified on either operand; if LI is not specified, tiie innplied length of operand one is used. 

If D1 or D2 is relocatable, the assennbler connputes the displacennent based on the USING instruction. 
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Assembler Instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


Q-Code 


Operands 


Byte 1 


Byte 2 


Byte 3 


Byte 4 


Byte 5 


Byte 6 


SLC 
SLC 

SLC 

SLC 

SLC 

SLC 

SLC 

SLC 

SLC 


A1(L1},A2 
A1(L1),D2{,R1) 

A1(L1),D2|.R2) 

D1(L1,R1),A2 

D1(L1,R1),D2(,R1) 

D1(L1,R1),D2(,R2) 

D1(L1,R2),A2 

D1(L1,R2),D2{,R1) 

D1(L1,R2),D2(,R2) 




11 < ' 






OF 


L1-1 ' Address A1 | Address A2 








* 1 j 








IF 


L1-1 * Address A1 Disp D2 
1 1 . from R1 










2F 


I L1-1 1 Address A1 ' Disp D2 
1 i 1 from R2 




1 




4F 


L1-1 ' DispDI ' Address A 2 1 
1 from R1 I 1 1 






1 I 






5F 


LM . DispDI 1 DispD2 
! from R1 f from R1 














6F 


LM 1 DispDI [ Disp D2 
1 from R1 from R2 








1 1 1 


8F 


L1-I J DispDI I Address A2 
' from R2 1 | 




1 1 






9F 


L1-1 ' DispDI 1 DispD2 
1 from R2 ( from R1 














AF 


L1-1 1 DispDI DispD2 
• from R2 ' from R2 








1 1 




NOTES: 

LI may be specified on either operand; if LI is not specified, the implied length of operand one is used. 

If D1 or D2 is relocatable, the assembler computes the displacement based on the USING instruction. 
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Assembler Instruction Format 



Machine Instruction Format 



Operation 



Operands 



Op-Code 



Byte 1 



Q-Code 



Byte 2 



Operands 



Byte 3 



Byte 4 



Byte 5 



Byte 6 



ITC 
!TC 

ITC 

ITC 

ITC 

ITC 

ITC 

ITC 

ITC 



A1(L1),A2 
A1(L1),D2{,R1) 

A1(L1),D2(,R2) 

D1(L1,R1),A2 

D1(L1,R1),D2(,R1) 

D1(L1,R1),D2(.R2) 

D1(L1,R2),A2 

D1{L1,R2),D2(,R1) 

D1(L1,R2),D2(,R2) 



OB 



L1-1 



IB 



L1-1 



2B 



L1-1 



4B 



5B 



6B 



88 



98 



AB 



LM 



LM 



LM 



L1-1 



LM 



I 



L1-1 



Address J\] 



I Address A2 



X 



I 



Address A1 



Disp D2 
from R1 



Address A1 



-t- 



Disp D2 
from R2 



Disp D1 I 
from R1 I 



I 



Address A2 



Disp D1 
from R1 



Disp D2 
from R1 



Disp D1 ! 
from R1 I 



Disp D2 
from R2 



1 



Disp D1 
from R2 



Address A2 



"T 



Disp D1 r 
from R2 | 



Disp D2 
from R1 



Disp D1 
from R2 



4- 



± 



Disp D2 
from R2 



NOTES: 

Operand one must address the data field at the leftmost byte. 

LI may be specified on either operand; if LI is not specified, the implied length of operand one is used. 

If D1 or D2 is relocatable, the assembler computes the displacement based on the USING instruction. 



v^^ 
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Assembler Irvstruction Format 



Operation 

ED 
ED 

ED 

ED 

ED 

ED 

ED 

ED 

ED 



Operands 



'1- 



A1(!,-) A7 

A1 (L1i.D2(,R1) 

D1(Ll,niKA2 

D1{L7,R1),D2{,R1) 

D1(L1,R1),D2^R2) 

D1(L!,R2),A2 

D1(L1,R2),.D2(,R1) 

D1{L-l,R2).D2(.R2} 



Machine Instruction Format 



Op- Code 



Byte 1 



Q'Code 



Byte 2 



Operands 

Byte 3 Byte 4 



Byte 5 



Byte 6 



OA 



LM 



t Address Al 



I Address A2 



1 



1 



1A 



LI 1 



Address Al 
I 



Disp D2 
from Rl 



2A 



Ll-1 



? Address A1 



Disp D2 
from R2 



4A 



-.1-1 



1" 



Disp D1 ' Address A2 
from R1 [ I 



1 



L1-1 



Disp D^ 
from Rl 



Disp D2 
from R1 



I 



6A 



L1-1 



Disp Dl I Disp D2 



from Rl 



from R2 



8A 



9A 



L1-1 



L1-1 



I Disp Dl ' Address A2 

from R2 I I 

r I 

T^Disp D1 f Disp D2 



AA 



4- 



a. 



from R2 



from R1 



I 



L1-1 



Disp Dl I Disp D2 
' from R2 | from R2 



NOTES: 

LI may be specified on fiilher operand; (< LI is not specified. th(^ implied length of operand one is used. 
If Dl or D2 IS reJocatable, the assembler computes the displacement based on the USING instruction. 
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Assembler 


Instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


Q-Code 


Operands 


Byte 1 


Byte 2 


Byte 3 


Byte 4 


Byte 5 


Byte 6 


MVI 
MVI 

MVt 


A1,l 
D1(,R1),I 

D1<,R2),I 




1 ^ ' 




3C 1 1 


Address A1 


1 












7C 1 1 


Disp D1 
from R1 














BC 1 [ Disp D1 
1 ' from R2 






1 1 




NOTE: 

If D1 is re! 


ocatable, the assembler computes the displacement based on the USING instruction. 



Assembler 


Instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


Q-Code 


Operands 


Byte 1 


Byte 2 


Byte 3 


Byte 4 


Byte 5 


Byte 6 


CLI 
CLI 

CLI 


A1,l 
D1(,R1)J 

D1(,R2),I 














3D ] 1 1 Address A1 












7D 1 f Disp D1 

1 from R1 












BD 1 1 DispDI 
[ from R2 










NOTE: 
If D1 is ret 


ocatable, the assembler computes the displacement based on the USING instruction. 







Assembler Instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


Q-Code 


Operands 


Byte 1 


Byte 2 


Byte 3 


Byte 4 


Byte 5 


Byte 6 


SBN 
SBN 

SBN 


A1,l 
D1{,R1)J 

D1(,R2)J 










3A 1 1 


Address A1 


1 


1 










1 




7A 1 1 


Disp D1 
from R1 




1 1 












BA . 1 


Disp D1 
from R2 












NOTE: 

If D1 is relocatable, the assembler computes the displacement based on the USING instruction. 
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Assembler Instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


Q-Code 


Operands 




Byte 1 


Byte 2 


Byte 3 


Byte 4 


Byte 5 


Byte 6 


SBF 
SBF 

SBF 


A1J 
D1(,R1),I 

D1{,R2),I 






1 






38 


1 Address A1 ! 1 








7B 1 1 1 DispDI 
( 1 from R1 










BB 1 DispDI 

' from R2 
, 1 




I 1 




NOTE: 

If D1 is relocatable, the assembler computes the displacement based on the USING instruction. 



Assembler Instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


Q-Code 


Operands 


Byte 1 


Byte 2 


Byte 3 


Byte 4 


Byte 5 


Byte 6 


TBN 
TBN 

TBN 


A1,l 
D1(,R1),I 

D1(,R2),I 




1 1 - ^ 


f 


38 j 1 1 Address A1 | | 










78 1 1 


Disp D1 
from R1 


) 










B8 1 


Disp D1 
from R2 








1 


NOTE: 

If D1 is relocatable, the assembler computes the displacement based on the USING instruction. 



Assembler Instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


Q-Code 


Operands 


Byte 1 


Byte 2 


Byte 3 


Byte 4 


Byte 5 


Byte 6 


TBF 
TBF 

TBF 


A1,l 
D1(,R1),I 

D1(,R2),I 








• 






39 


1 


Address A1 


1 












79 ' \ 


Disp D1 

from Rl 














B9 ' 1 


Disp D1 
from R2 




1 


NOTE: 

If D1 is relocatable, the assembler computes the displacement based on the USING instruction. 
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Assembler Instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


Q'Code 


Operands 


Byte 1 


Byte 2 


Byte 3 


Byte 4 


Byte 5 


Byte 6 


ST 
ST 

ST 


A1,RX 

D1(,R1),RX 

D1(,R2),RX 






1 .1 , . 






34 


RX Address A 1 1 ] 






1 




74 


RX i DispDI 
' from Rl 


[ 1 
1 ! 






" [ 


, 1 




B4 


RX 1 Disp D1 
1 from R2 


1 1 
I 1 








1 1 


NOTE: 

If D1 is relocatable, the assembler computes the displacement based on the USING instruction. 



rm 



Assembler Instruction Format 



Machine Instruction Format 



Operation 



Operands 



A1,RX 
D1(,R1),RX 

D1(,R2),RX 



Op-Code 



Byte 1 



35 



75 



B5 



Q-Code 



Byte 2 



RX 



RX 



RX 



Operands 



Byte 3 



Byte 4 



Byte 5 



Address A1 



, Disp D1 

I from Rl 



L>I^P D1 

from R2 



NOTE: 

If D1 is relocatable, the assembler computes the displacement based on the USING instruction. 



Byte 6 



Assembler Instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


Q-Code 


Operands 


Byte 1 


Byte 2 


Byte 3 


Byte 4 


Byte 5 


Byte 6 


A 
A 

A 


A1,RX 
D1(,R1),RX 

D1(,R2),RX 




[ 






36 


RX t Addrt-^ss A1 ' J 




1 






76 


RX 1 Disp D1 
, from Rl 














B6 


RX ! Disp Di 
1 from n? 






1 ! 




NOTE: 

If D1 is relocatable, the assembler computes the displacement based on the USING instruction. 






62 



Assembler Instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


Q-Code 


Operands 


Byte 1 


Byte 2 


Byte 3 


Byte 4 


Byte 5 


Byte 6 


BC 
BC 

BC 


A1,I 
D1(,R1),I 

D1(,R2),I 
















CO 


1 


Address A1 , 


1 














DO 


1 


Disp D1 
from R1 
















EO 


1 


DispDI 
from R2 




1 

1 












NOTES: 

If D1 is relocatable, the assembler computes the displacement based on the USIMG instruction. 

For the extended mnemonics of the BC, the second operand (I-field) is not used since the information is inherent in the mnemonic. 
See Extended Mnemonic Codes for the extended branches and their associated Q-codes. 



Assembler Instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


G-Code 


Operands 


Byte 1 


Byte 2 


Byte 3 


Byte 4 


Byte 5 


Byte 6 


TIO 
TIO 

TIO 


A1,l 
D1(,R1),I 

D1(,R2),I 
















C1 


1 


Address A 1 ] 










i 




D1 


1 


Disp Dl 
from R1 


















E1 


' 


Disp Dl 
from R2 














NOTE: 

If D1 is relocatable, the assembler computes the displacement based on the USING instruction. 



Assembler Instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


G-Code 


Operands 


Byte 1 


Byte? 


Byte 3 


Byte 4 


Byte 5 


Byte 6 


SNS 
SNS 

SNS 


Al,l 
D1{,R1),I 

D1(,R2)J 




1 , 






30 


1 ' Address A1 ' | 










f 




70 


1 


Disp D1 
from Rl 
















BO 


i 


Disp Dl 
from R2 




1 

1 










NOTE: 

tf Dl is relocatable, the assembler computes the displacement based on the USING instruction. 
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Assembler Instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


Q-Code 


Operands 


Byte 1 


Byte 2 


Byte 3 


Byte 4 Byte 5 


Byte 6 


LIO 
LIO 

LIO 


Al,l 
D1(,R1),I 

D1(,R2),I 








31 1 I Address A 1 , |. 








i 




71 ' 1 


Disp Dl 
from R1 














Bl 1 1 


Disp Dl 
from R2 












NOTE: 

If Dl is relocatable, the assembler computes the displacement based on the USING instruction. 



Assembler Instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


Q-Code 


Operands 


Byte 1 


Byte 2 


Byte 3 


Byte 4 


Bytes 


Byte 6 


LA 
LA 

LA 


A1,RX 
D1(,R1),RX 

D1(,R2),RX 




1 








C2 1 RX 


Address A1 | 


I 








D2 • RX 


Disp Dl 
from R1 




1 
1 

! 
1 

1 




1 








E2 . RX 
1 


Disp Dl 
from R2 












NOTE: 

If Dl is relocatable, the assembler computes the displacement based on the USING instruction. 



Assembler Instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


Q-Code 


Operands 


Byte 1 


Byte 2 


Byte 3 


Byte 4 


Byte 5 


Byte 6 


LOP 
LCP 

LCP 


A1,RX 
D1(,R1),RX 

D1(,R2),RX 








w. 


3F , RX 


Address Al ' | 


1 






I 


1 




7F ' RX 


Disp Dl 
from Rl 


1 

1 I ' 




1 




1 1 1 




BF 1 RX 

\ 


Disp Dl 
from R2 


1 I ! 
1 1 1 










NOTES: 

The Model 15 LCP instruction can also be generated on the Model 1 2 through th 
$LCP macro instruction; see IBM System /3 Models 10 and 12 System Control 
Programming Macros Reference Manual. GC21-7562. 

If Dl is relocatable, the assembler computes the displacement based on the USI^ 


e 

JG instruction. 
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Assembler Instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


Q-Code 


Operands 


Byte 1 


Byte 2 


Byte 3 


Byte 4 


Byte 5 


Byte 6 


SCP 
SCP 

SCP 


A1,RX 
D1(,R1),RX 

D1{,R2),RX 












3E 


RX 1 Address A1 


1 


1 

1 














7E 


RX 1 DispDI 
, from R1 




1 

1 












BE 


RX 1 DispDI 
1 from R2 














NOTES: 

The Model 1 5 SCP instruction can also be generated on the Model 1 2 through the $SCP 
macro instruction; see IBM System/3 Models 10 and 12 System Control Programming 
Macros Reference Manual, GC21-7562. 

If D1 is relocatable, the assembler computes the displacement based on the USING instruction. 



Assembler Instruction Format 


Machine instruction Format 


Operation 


Operands 


Op-Code 


Q-Code 


Operands 


Bytel 


Byte 2 


Byte 3 


Byte 4 


Byte 5 


Byte 6 


APL 


1 












L 




1 F1 1 . 


00 




1 






NOTE: 

The APL is a NO-OP instruction on the Model 15. 



Assembler Instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


Q-Code 


Operands 


Bytel 


Byte 2 


Byte 3 


Byte 4 


Byte 5 


Byte 6 


HPL 


11.12 


















FO ; 12 


V^ 


_ 



Assembler Instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


Q-Code 


Operands 


Byte 1 


Byte 2 


Byte 3 


Byte 4 


Byte 5 


Byte 6 


SIC 


11,12 


1 F3 ; 12 j 11 


[ > * 
1 1 





Appendix A. Machine Instructions 65 



Assembler Instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


Q-Code 


Operands 


Byte 1 


Byte 2 


Byte 3 


Byte 4 


Byte 5 


Byte 6 


CCP 


I1,RX 




1 . 






F4 ] RX ' 11 


' 1 ' 




' 1 


1 1 1 


NOTES: 

The Model 15 CCP instruction can also be generated on the Model 12 through the $CCP 
macro instruction; see IBM System/3 Models 10 and 12 System Control Programming 
Macros Reference Manual, GC2 1-7562. 

For the SVC form of the CCP instruction, the Q-code is inherent in the mnemonic and the RX field is omitted 
from the operand field. See Extended Mnemonic Codes for the associated Q-code. 



Assembler Instruction Format 


Machine Instruction Format 


Operation 


Operands 


Op-Code 


Q-Code 


Operands 


Byte 1 


Byte 2 


Byte 3 


Byte 4 


Byte 5 


Byte 6 


JC 


A1J 






1 

1 


1 F2 1 • 


1 


1 f 


1 


*lf the first operand is absolute, this value is placed in byte 3. 
If the first operand is relocatable, the displacement from the next sequential instruction to address A1 is 

NOTE: 

For the extended mnemonics of the JC, the second operand (l-field) is not used since the information is ir 
See Extended Mnemonic Codes for the extended jumps and their associated Q-codes. 


placed in byte 3. 

herent in the mnennonic. 



66 



Appendix B: Assembler Instruction Reference Table 



operation Entry 


Name Entry 


Operand Entry 


DC 


Any Symbol or Blank 


One operand entry containing: Duplication Factor, Type, Length, Constant. 


DROP 


Blank 


Specified register (1 or 2). 


DS 


Any Symbol or Blank 


One operand entry containing; Duplication Factor, Type, Length. 


EJECT 


Blank 


Blank. 


END 


Blank 


A relocatable expression or Wank. 


ENTRY 


Blank 


Any relocatable name entry found in the current program. 


EQU 


Any Symbol 


An expression. 


EXTRN 


Blank 


One relocatable symbol not found in the current program which may 
be followed by an absolute expression enclosed in parentheses. 


ICTL 


Blank 


Two decimals in the form of B,E. 


ISEQ 


Blank 


Blank or two decimal values in the form L, R. 


ORG 


Blank 


Blank operand or an expression (A) optionally followed by two absolute 

expressions in the form A,B,C. 


PRINT 


Blank 


Model 10 Disk System: One or two entries from DATA, NODATA, ON, 

OFF. 

Model 12 and Model 15: One to three entries from DATA, NODATA, 

GEN,NOGEN,ON,OFF. 


SPACE 


Blank 


Blank or a decimal value. 


START 


Name or Blank 


A self-defining value or blank. 


TITLE 


Name or Blank 


A sequence of characters enclosed In apostrophes. 


USING 


Blank 


A relocatable expression (V) and an index register (R) in the form V,R. 



Appendix B. Assembler Instruction Reference Table 67 



Appendix C: System/3 Assembler — Source Language Error Codes and Diagnostics 



Code 


Diagnostic 


Explanation 


N01 


INVALID NAME LENGTH 


Name field entry greater than six characters 


N02 


INVALID CHARACTER IN NAME 


Name starts vyith no n -alphabetic or contains an invalid character 


N03 


NAME NOT ALLOWED ON THIS 
INSTRUCTION 


Name field entry not allowed on this instruction 


N04 


REFERENCE TO UNDEFINED SYMBOL 


The referenced symbol is not defined in this program 


N05 


NAME MISSING FROM 
INSTRUCTION REQUIRING ONE 


Name field entry missing from EQU instruction 


N06 


PREVIOUSLY DEFINED SYMBOL 


Symbol has been previously defined in this program 


N07 


MODULE NAME MISSING 


START instruction missing, or START instruction present but name field 
entry (module nanrke) missing. Assembler assigns the default module 
name ASMOBJ. 


001 


INVALID OPERATION CODE 


Undefined operation field entry 


O02 


INVALID ORIGIN 


Attempt to ORG to a value less than the initial value of the location counter 


O03 


INVALID OR ILLEGAL ICTL 


Operand error on ICTL, or ICTL not the first statement in the program. 
(ICTL treated as last source statement in program) 


004 


INVALID START INSTRUCTION 


START instruction encountered after location counter is initialized 


005 


LOCATION COUNTER ERROR 


Location counter overflow Igreater than 65536) or attempt to reference 
the location counter at 65536 


006 


MISSING END STATEMENT 


END statement missing from the program 


P01 


INVALID OPERAND DELIMITER 


An operand field syntactical delimiter is either misplaced or missing 


P02 


INVALID OPERAND FORMAT 


The operand field is not of the proper format for this instruction 


P03 


MISSING OPERAND 


Operand field entry missing from instruction requiring one 


P04 


INVALID SYNTAX IN EXPRESSION 


Violation of one or more expression syntax rules 


P05 


EXPRESSION VALUE TOO LARGE 


Final expression value not in range -2^^ to 2^®-1 


P06 


INVALID OPERAND 


One or more operand entries do not meet specifications for this instruction 


P07 


ARITHMETIC OVERFLOW 


Intermediate expression value not in the range -7^^ to 2^'*-1 


P08 


ADDRESSABILITY ERROR 


Relocatable displacement outside the range of USING instruction 


P09 


REGISTER SPECIFICATION ERROR 


Index register specification not 1 or 2 


PIG 


INVALID CONSTANT 


Error in constant specification on DC instruction 


P11 


INVALID CONSTANT TYPE 


Data type specified on DC/DS is not valid 


PI 2 


INVALID DUPLICATION FACTOR 


Error in duplication factor specification on DC/DS 


P13 


INVALID LENGTH SPECIFICATION 


Error in length specification 


P14 


INVALID STATEMENT DELIMITER 


The column following the statement field is not blank 


P15 


RELOCATABLE MULTIPLICATION 


A relocatable term used in multiply operation 


P16 


RELOCATABILITY ERROR 


A relocatable expression is used where an absolute expression is required, 
or an absolute expression is used where a relocatable expression is required 


PI 7 


INVALID SYMBOL 


Invalid character in or invalid length of a symbol in the operand field 


P18 


INVALID SELF-DEFINING TERM 


Error in the format of a self-defining term 


P19 


SELF-DEFINING VALUE TOO LARGE 


Value of self-defining term is outside of range -2^^ to 2^®"^ 


P20 


INVALID IMMEDIATE FIELD 


Immediate field not in range X'OO' to X'FF' 


P21 


INVALID DISPLACEMENT 




Absolute displacement not in range to 255 
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Code 


Diagnostic 


Explanation 


P22 
P23 


INVALID EXTRN 

TOO MANY ESL RECORDS 


Symbol is Invalid or already defined in the program or subfield 
is invalid. 

More than allowed number of EXTRN and ENTRY statements 
were found in the program. This count includes multiple 
EXTRNs and ENTRYs, ENTRYs with valid symbols which are 
not defined, and EXTRNs with valid symbols which are defined 
in the program. See ESL Table Size in Part It. Programmer's 
Guide. 
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Appendix D: Assembler Language Subroutine To RPG II Linkage 



Assembler subroutines can be linked to an RPG II program. 
The RPG 11 program passes parameters as it branches to 
tlie assembler subroutine. To write a subroutine that will 
be linked to an RPG II program the following rules must 
be used; 

1. The name of the assembler subroutine must be 
SUBRxx. XX can be any valid alphabetic characters 
for user-written subroutines. (Numeric characters 
are reserved for IBM-suppUed subroutines.) The 
name used must be the same as the name used in 
the RPG II program. 

2. Upon entry to the assembler language subroutine, 
the address recall register (ARR) contains a pointer 
to the parameters which represent the fields to be 
referenced by the assembler subroutine. The return 
point to the RPG II program is the first byte after 
the parameters, 

3. If the subroutine makes use of registers i and 2, the 
contents of these registers must be stored upon 
entry to, and restored before exit from, tlie 
subroutine. 



USING FIELDS IN THE RPG II PROGRAM 

When linkage is effected from RPG II to an assembler 
subroutine, three possible areas in the RPG II program can 
be referenced by the subroutine. They are: field, table 
or array, and indicator. 



Referencing a Field in an RPG \\ Program 

The following parameters (symbolic form of code 
generated by the compiler) are passed by RPG U when a 
field is to be referenced: 



Referencing a Table or Array in an RPG II Program 

The following parameters (symbolic form of code 
generated by the compiler) are passed by RPG II when a 
table or array is to be referenced: 

B SUBRxx 

DC ILrEn try length-!' 

DC AL2(leftmost address of table control field) 

The subroutine can refer to the table or array defined in 
the RPG II program by utilizing the control field created 
for that table or array. This control field, one of which 
is created for each table or array built by the RPG II 
program, is in the following format: 

Bytes Meaning 

1-2 Rightmost address of the first entry. 

3-4 Rightmost address of the last entry. 

5-6 Initialized to rightmost address of fust entry; 

used at object time for rightmost address of 
the last looked-up entry of a table. 

7-8 Length of an entry. 

The subroutine can obtain the data retrieved from the last 
RPG II table LOKUP by using the address in bytes 5-6. 
To access the table or array itself, the address in bytes 1-2 
must be used. 

Data used by the subroutine must be left unpacked for the 
RPG II program. 



B SUBRxx 

DC ILlTield length -I' 

DC AL2(rightmost address of field) 
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Referencing an Indicator in an RPG II Program 



Linkage for I/O Subroutines 



The foJJowing parameters (symbolic form of code generated 
by the compiler) are passed by RPG II when an indicator 
is to be referenced". 

B SUBRxx 

DC XLl'OO' 

DC XLl'Mask for the indicator' 

DC XLl'Displacement to the indicator from XRT 

Note: The parameters passed to the assembler subroutine 
are determined by the coding done in the RPG II program. 
For a description of this coding, see the IBM System/S 
RPG II Reference Manual, SC21-7504, IBM System/3 
Model 6 RPG II Reference Manual, SC2 1 -7 5 1 7 , o r IBM 
System/3 Card System RPG II Reference Manual, 
SC2 1-7500. 

RPG II LINKAGE SAMPLE PROGRAM 1 

In this sample program, the RPG II program links to the 
assembler language subroutine SUBRA (Figure 27), 
When control is returned to the RPG II program, the 
character 'A' will have been moved into the field in the 
RPG II program. 

RPG II LINKAGE SAMPLE PROGRAM 2 

In this sample program, the RPG II program links to the 
assembler subroutine SUBRB (Figure 28). The first 
parameters passed reference a table. The second param- 
eters reference an indicator. The subroutine refers to 
both sets of parameters. The subroutine first tests the 
indicator in the RPG II program. If the indicator is off, 
control is returned to the RPG II program. If the indicator 
is on, a character 'C is moved into the last looked up 
entry in the table. When control is returned to the RPG II 
program, it checks for a *C' in the table. 

I/O SUBROUTINES 

Subroutines that support input or output devices can also 
be linked to an RPG II program. These subroutines are 
commonly referred to as RPG II SPECIAL subroutines. 



The following linkage is generated by RPG II to communi- 
cate with the user-supplied I/O subroutine. 

I. DTF (defme-the-file) format: 

Bytes Description 

Device code (X'OO') 

1 UPSI mask 
2-3 Attributes 

4-5 Reserved for data management 

6-7 Address of next DTF 

8-B Reserved for data management 

C-D Logical record address 

E Completion code 

X'42' = End-of-file 

X'4r = Controlled cancel (not 

recognized by Model 10 

card system) 
X'40' = Normal completion (not 

recognized by Model 10 

card system) 
F Operation 

X'CO' = Get and put (model 10 

card system only) 
X'80' = Get 
X'40' = Put 
X*20' = Update 
X'IO' = Close 



10-11 


Input I/O address 


12-13 


Output I/O address 


14-15 


Block length 


16-17 


Record length 


J 8- 19 


Address of array DTT if array linkage 
is used 
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The address of byte of the DTF will be passed to 
the I/O subroutine in index register 2. Bytes 0-3, 6-7, 
C-D, and 10-17 are filled in by RPG II at compile time. 
Byte E, completion code, is ijiserted by the I/O sub- 
routine when control is returned to RPG II. Byte F, 
the operation byte, is inserted at object time. The 
information in bytes and 4-B must be available, 
unchanged at close time, for data management. 

The DTT (defme- the -table) is used for array linkage. 
DTT format: 

Bytes Description 

0- 1 Address of rightmost byte of the first 

element of the array. 

2-3 Address of rightmost byte of the last 

element of the array. 

4-5 RPG last LOKUP element. 

6-7 Length of array elemen t. 

2, The 1/0 subroutine must save and restore the registers 
altered in the routine. Control should be returned to 
the address in the address recall register (ARR). 

Note: The combined get and put operation code, X'CO', is 
utilized by the System/3 Model 10 Card System only. The 
System/3 Model 10 Disk System, System/3 Model 12, and 
System/3 Model ] 5 use alternate get and put operations to 
accommodate combined files. When coding an I/O subroutine 
to be used on either system, be certain to consider this fact. 



When an output operation is requested, the I/O subroutine 
must move the data from the logical buffer (address in 
bytes C-D of the DTF) to the physical buffer (address 
in bytes 12-13 of the DTF). The two addresses are the 
same in the Model 10 Card System, Bytes 0-B are unused 
in the Model 1 Card System. 

The I/O subroutine must do its own open when the first 
call to it is issued. It must also do its own close to the 
file on a close call 

If a dual I/O is requested, the second area will be immediately 
behind the first (Model 10 Disk System, Model 12, and Model 
15 only). 

The I/O subroutine cannot be overlaid in the Model 10 Disk 
System, Model 12, and Model 15. 

Sequential processing only is supported. 

When an 1/0 subroutine issues a halt, three halts should be 
displayed as follows: 

1. The first halt issued should be the FF halt reserved 
by RPG II for SPECIAL I/O subroutine usage. 

2. The second halt should be the last two digits of the 
subroutine name. 

3. The third halt may be any valid halt that can be 
displayed. 



When an input operation is done, the I/O subroutine must 
move the address of the physical buffer currently being 
used to the logical buffer address location in the DTF (bytes 
C-D). In the Model 10 Card System, address bytes 10-1 1 
will be the same as bytes C-D (one physical buffer). 



Appendix D. Assembler Language Subroutine to RPG li Linkage 73 



RPG II Program 



Control passed to SUBRA 
by RPG II program 



lEM 



Symbolic representation of code 
generated by the RPG II compiler: 



SUBRA* 

ILI'O' 

AL2 (HERE) 



an 
C 

00 
> 



? 




IBM SriMm/3 AtMR^bto' Coding Fcv 



«.OCB*- 


fi«!Hlsr, t.«»*^-t 






..0. 


PHOGfiAMMtH 


1"- "'■■^^•■-' - 






"■'""■•■~-- 




SlAIIKlNt 


,,",":,. ,.r;:T„J,.,.,.,.,.,.,„,??rr. 


7» J. ««XM n «>.»».. >»«.: 0«<fc«, .. ^ .S SO.. SJV.S. ««,... MiS^rttM,,/ «J *. 64 y. ^> « W '0 M -. >. ,, 75 >^ ,w« « W «, « « W « * M 


SpHRfl TlTLt MPS CINKrtSE 


■LJSAHPLE X*\ J , ' i 1 1 ! ■' 1 


, 11^! 


t J ' 


'" 






^ ^ IT tud^oiArrHW \f^\L/^ 


*(^rddt%i sg 


10 Kp^ 512 




# T j~ 


' ^ i SIVGLB PI\elP 1 , 1 ^ 


pipi£s[sr;:"^"': :'i 


J 


' 




S088A 'STflRF 1 




:iL.^_U-LJ 




■^-Tx sz J^Tfj^fi 


SAVE PAJffi^erefi aU 


1 1 1 


'1 i; 




T^ — g : Tij/gj- +" 


' i^:^£M£^ PAsV Pflk^WeirieW 1 ' ■ , 1 1' ; ' 


.4 .-4^. 




S7 gEr*-!, 8^ ^ 


' ' S^Ve ?£/1i>?!ft ! 


:, 4::.-..]^:- 




1 ; ! 


5r sfl^+r^r^. 


^ 5AVe xS' J 1 




1 1 


Li. '; +-^ . i- 


SET " LA »->^;:* + " 


^-f++-H - h- £fp4p£tEff Apdwsisii, 1. .::.:. 


1 ■ ^ 




i. iJ'a.'Xt" 


r 1 ' 5£^ ^/fw^'^^pp^^sp 


; 1 . 


T^ ' 1 






+'" "i^r^lJt^ Ir«""" 


t '"[./""i: — ;■ "^^i ''^qr^T/f^ 


J_ j--t-i- i 


1 ; 




1 


ji:":4A.:::i:t-i!_: ::: 


::::: LTt:±::i::"j£iaR£j ^-It^-^t 








1 


EK *-* r - 


^ fery)?^ 1 ^ ^ 








cai Je iLZ^^ i 


[ ^ 


1 j 


J Li. . 




1 


t^D- 


1 i 




■ 


j^ 


{ , 


..:::___::i, ,^.i-li 






::::::t::::::::::::::::: 


L.„_4_( 


- 4— -t-i-U 


UWr- 








Control returned to 
first byte after 
parameters 



> 



F^PG N Program 



Control passed to SUBRB 
by RPG II program 



Symbolic 


representation of code 


i;)onerated by the RPG II compiler: — 


B 


SUBRB -— ■ /-N 
ILVO' k1) 
AL2 (leftmost address of table control field) 


®K 


®{- 


XLI'OO' 


XLrso' 


^DC 


XLrar 



r 
3 



M) Parameters passed for a table 
(2) Parameters passed for an indicator 

(T) Control field for table 



DC AL2 (address of first entry} 

DC AL2 (address of last entry) 

DC AL2 (address of last !ooked-up entry [TABBl ) 

DC I L2'r (length of entry) 







Control returned to 
first byte after 
parameters 



LIBRARY DECK GENERATOR PROGRAM (MODEL 10 
ONLY) 

The System/3 Model 10 Card System user can write assem- 
bler language subroutines to be used as SPECIAL or EXIT 
routines in an Rl^G II program. These assembler routines, 
however, cannot be inserted directly into the RPG II 
compiler. The assembler language subroutine must 
tlrst be assembled by the SysTem/3 Model 10 Disk System 
Basic Assembler and then translated by the Library Deck 
Generator (LDG) program before it can be placed in the 
RPG IJ compiler. 

The entire operation, from writing an assembler subroutine 
to selection of that subroutine by the IBM System/3 Model 
10 Card System RPG II compiler is outlined as follows: 

1. The assembler subroutine is written by the programmer. 
If standard control cards supplied by the LDG program 
are not being used, the programmer must also code 
control cards for the subroutine. 

2. The assembler subroutine is assembled on the 
System/3 Model 10 Disk System by the Basic 
Assembler. 

3. The LDG program is read into System/3 Model 10 
Disk System storage. The *** parameter card, 
assembler subroutine object deck, and blank cards 
are placed in the MFCU. 

4. The LDG program produces a deck of cards, con- 
taining the subroutine, which can be placed in the 
RPG II compiler. The deck produced by the LDG 
program contains the following: 

Header card 
Control cards 
Text 
Q-card 
End card 

5. The deck produced by the LDG program may now 
be placed in the RPG II compiler deck. When an 
RPG II program is compiled, this subroutine will be 
selected, when required, just as any other compiler 
subroutine. 

The following material describes the information 
needed to use an assembler language subroutine in an 
RPG II program. This material is divided into four major 
sections: 

Writing the assembler language program 
Running the LDG program 
Output of the LDG program 
Example of a SPECIAL subroutine 



Writing the Assembler Language Program 

The following information must be considered when the 
assembler language program is written. 



Title Instruction 

The name field of the TITLE instruction must contain 
OOGEB in columns 1-5. 



Control Cards 

Control cards are needed for every assembler language sub- 
routine. Control cards contain code, executed during 
compile time, which determines whether the subroutine 
should be included as part of the program being compiled. 
Library routines are selected only when the execution of a 
control card determines they are needed. In addition, 
control cards are needed to ensure that the entry point for 
the subroutine is placed in the proper location in core for 
the RPG II compiler to find and use it. 

There are two ways to get the control cards you need. In 
some cases, you will need to code them yourself; in others 
standard control cards are supplied by the LDG program. 
If your subroutine is to be used as a normal SPECIAL or 
EXIT routine, the LDG program will supply three control 
cards. See Figure 29 for samples of these. When these 
control cards are provided, a SPECIAL routine is selected 
if bytes 12-13 of the rile description compression matches 
the identification characters of the routine, and if the 
SPECIAL device code B'OxxxlOlO' is present in byte 16 
of the same file description compression. EXIT routines 
are selected if the identifier in the library routine is the 
same as an entry in the symbol table (bytes 3-4) and if 
byte 2 of the same entry contains bit configuration 
1 1 1 00000. When these decks are selected, the address of 
the entry point of associated object code is placed in the 
symbol table entry, bytes 3-4 for an EXIT reference and/or 
bytes 8-9 of the file description compression for a SPECIAL 
reference. 

You must code control cards for your subroutine when: 

• The subroutine is not a SPECIAL or EXIT routine. 

• The subroutine needs a function not provided by the 
standard control cards. 

The following paragraphs describe several compiler resident 
routines which can be used by programmer coded control 
cards. 
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Coding Control Cards 

There are three types of control cards each identified by 
a special character in column 1. Each type performs a 
different function: 

• Cards widi a J in column 1 (J-cards) are usually used to 
control the selection of a routine for an object program. 
They also place the routine entry address in compile 
time storage for use by the RPG IJ compDer. 

• Cards with a K in column 1 (K-cards) are used only 
when one routine from a set of related routines is to be 
used in any job. A J card will determine if any of these 
routines are needed and if so will start the scan for K 
cards which in turn control selection of the proper 
routine. 

• Cards with an L in column 1 (L-cards) are used to pass 
information from RPG II compile time core to a sub- 
routine or vice versa. They are executed only if the 
deck in which they appear has been selected for use with 
the current program. 

Control card identification characters must be defined for 
assembly at X'OOOO' and are placed in column 1 of control 
cards. The only allowable characters are J, K, L, and blank. 
There should be one non-blank control card identifier 
character for each block of code for a control card. The 
blank is used as a delimiter between control card strings. 

For example, DCWWi CLIOUKLLtiHiLtSL' shows identi- 
fiers for seven control cards and four control card strings. 
The first is a 4-card string with identifiers 'JKLL' used. 
The others are single card strings, each of which has an 
*L' identification. 

LDG identifies the control cards and assigns one control 
card identification character to each one. The control 
card strings are merged with the text cards for the routine 
functional code in the following manner. The first control 
card string is merged in front of the text, and one addition- 
al control card string is merged into the text cards where 
there is a break in the text caused by a DS or an ORG which 
changes the location counter. 



Your control cards must contain instructions for calculating 
the address at which your subroutine will be loaded. To 
calculate the true entry address, use the current relocation 
factor described here. 



Label 



Address 



RELOCF X'030C' to 
X'030D' 



Function 

Contains the current 
relocation factor. Is 
modified when the end 
card of the selected deck 
is encountered or JlEAAl 
is entered. 



See Figure 29, Part 1, found at the end of this section, for 
an example oi the use of the current relocation factor. 

The following paragraphs describe several compiler resident 
routines which can be used by programmer coded control 
cards. 

J-Card Scan Routine reads the library deck until a J-card is 
encountered. The routine has three entry points. 



Label 



Address 



J3EAA1 X*031A^ 



J2EAA1 X'3014' 



JlEAAl X'030E^ 



Function 

Scans for J-card. When 
one is found, control is 
passed lo that card. All 
other cards are ignored. 

Clears X^OOEO^ to X'OOFF' 
and X'007C' to X^007F' 
to hex zeroes then scans 
for J-card as J3EAA1. 

Resets the relocation 
factor to the next object 
address and performs as 
J2EAA1. 



K-CardScan Routine has one entry point. 
Label Entry Po in t Func tion 



Each control card must contain executable code. Control 
cards are coded in the order needed for the purposes de- 
scribed above. Each must begin at X'0017'; therefore, an 
ORG to 23 or X'OOl T must precede the code for each card. 



KlEABl X'0320' 



Scans for K' card. When 
one is found, control is 
passed to that card. All 
other cards except J- 
cards are ignored. If a 
J-card is found, a halt 
'40' is executed. 
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Relocate Deck Routine has one entry point. 



Label Entry' Point 

RlEACl X'032C' 



Function 

Initiates or continues 
relocation of the current 
deck. Will recognize and 
execute L-cards and re- 
organize and print Q-cards. 
Exits to JlEAA] when 
end card is encountered. 



Scan File Description Compressions Routine has two entry 
points. This routine steps through the fde description com- 
pressions. It returns a pointer to the next compression in 
register 2. If the condition code is high, tlie pointer is 
valid. Any other condition indicates the pointer is invalid. 



Label 


Entry Point 


Function 


FlEAEl 


X'0338^ 


Initializes pointer to first 
file description compres- 
sion and sets condition 
code. 



Text Handling Ro u tin £^ bu il ds u p M \ \ o x t ca r d i n storage 
and, when a card is full, punches rhat card. The area from 
X*0080' to X'OODF^ is the location of the puncli buffer 
and this must be LOj};idered whvi; usiiig this area of core. 



Label Entry Point 

BKEAHI r03.50' 

STXLAl X'035C' 



fufwilon 

Eofce>i aity partial text 
card V.) be punched. 

Accepts a string of text to 
be added to i-ie cunent 
texi i mm cdi at eiy following 
the last text passed. Re- 
quires a i-byic parameter 
foil owing the braiich. 
Parameter coatidns a 
displdcement relative to 
register I to the length 
byte of the text being 
passed. The text string 
should be preceded by 
tliiS lengtii byte which 
con tains iIjc length of 
text. 



F2EAE1 X'033E' Points register 2 to the 

next compression and 
sets the condition code. 
(Register 2 need not be 
pointing to the last 
compression.) 



Scan Extension Compressions Routine has two entry 
points and steps through the extension compressions and 
returns a pointer to the next compression in register 2. A 
high condition code indicates a valid pointer. Any other 
condition code indicates an invalid (undefmed) pointer. 

Label Entry Point Function 

ElEAFl X'0344' Initializes pointer to first 

extension compression 
and sets condition code. 

E2EAFI X'034A' Points register 2 to the 

next compression and 
sets condition code, 
(Register 2 need not 
point to last compression.) 



Wait On Punch Busy Routine: 

Label Entry Point Function 



WTPUNl X'0362' Retuni:s when the previous 

punch operation has been 



successfully completed 
and the buffer is not busy. 



Title of Subroutine 

The title of the routine must be a defined constaut to be 
loaded starting at X'OOOO'. It must be equal to or less 
than 80 characters in length. Tliis title Is printed on the 
RPG II compiler listing witli rhe address of the entry point 
of the routine if it is seic^. led at compile lime. 
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Routine Functional Code 

This code must be assembled starting at X*0000\ The 
code must contain a break in continuity (a DS or an 
ORG which changes the location counter value) where 
control cards are to be inserted. 



Assembling the Subroutine 

The assembler subroutine is assembled by the Model 10 
disk system basic assembler. The OCL considerations for 
assembly are discussed in Section II: Programmer's 
Guide under the headings OPTIONS Statement and 
OCL Statements For Assembler, 



An OPTIONS card must be used to successfully assemble 
the subroutine. 



Running the LDQ Program 

The following paragraphs describe a special parameter card 
that must be used with the assembler deck, the OCL required 
to load the LDG program, and error conditions that may re- 
sult. 
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Library Deck Generator Parameter Card (***) 

A parameter card must precede the assembler generated 
object deck to provide the LDG program with information 
regarding output. Entries for the parameter card are as 
follows: 



Columns 
1-3 
4-9 

10 
11 



12 
13 



Entry 

* * * 

SUBRxx 

, (comma) 
S 



, (comma) 
D 





G 


14 


, (comma) 


15-16 


VV 


17-18 


MM 


19 


(zero) 




1 


20 


, (comma) 


21-96 


Subroutine 




title 



Explanation 

Three asterisks identify a parameter card. 

These characters identify the subroutine. Substitute any two characters 
for XX — the second may be blank, but the first must not. Note that the 
LDG program will not diagnose an errbr in these columns. 

Required. 

Standard control cards will be provided by the LDG program for the subroutine 
identified by the characters found in columns 8-9 of this parameter card. The 
title, also extracted from this parameter card, will be assigned to the subroutine. 
The entry point of the routine must be the first byte of the routine. GEB will be 
forced as module identifier. 

Non-standard control cards will be supplied by the user as will identification 
characters and title. (The format of this material may be found in Figure 29.) 
If N is specified, the title specified in this parameter card is ignored. Thus, if 
N is used, columns 21-96 may be left blank. 

Required. 

Default values for component version, modification level, and indication of 
complete or partial deck replacement for header card are provided by the LDG 
program. 

Default values are not assumed. The user must provide them in columns 15-19. 

Required if column 1 1 contains an S or column 13 a G. 

Two numbers indicating the component version. 

Two numbers indicating modification leveL 

Partial deck replacement for header card. 

Complete deck replacement for header card. 

Required only if column 13 contains a G and column 11 an S. 

If column 1 1 contains an N, the title is not required. If column 13 contains 
a D, the title of the subroutine must begin in column 15. 
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Examples: 



Error Conditions 



IBM 



^f^J^'V^^A^. JL 



■mn 






i :fi >; J? 's^ -y) w 



User will supply ail control cards, identifying characters, 
and title for subroutine 'A^\ 



IBM 




Library Deck Generator will supply standard control cards 
which will be used for selection of subroutine BB. The title 
will be printed on the 4th tier of the cards and on the com- 
piler listing- The values given in columns 15-19 will be used 
on the header card. The component version (02) will go in 
columns 59-60 of the header card, the modification level 
(GO) will go in columns 31-32, and deck replacement indi- 
cator (1) will be placed in column 85. 



Loading the LDG Program 



IBM 



ST.vrUMENT 


1 - .. '. C ; a ■■ \: ■. iJM xh V. ..■ - -J 20 v. .■-. .- '.i J^ ,<. ;; > ^. X ii ■- Ji -a 3S As 3/ Jfl 39* 


/I/, 'L|ck5 PfiipJIilER ■'! 1 :,"■''; ' M ; 1 1 


7iriaAD^i5fiD^,Ki: r ' Tr 


itl^/iSUBRl i '(PARAli^EiT^K C/^RDli i '^ ^ fl 


iS 1 1 ' ' ' 




5 ,1 


t 1 J ._. , i , 


r^' ^ - - \ — -^-^-^..-f - -^-- ;- 


1 1 1 ' 










j_ i 


^If X Ij^-. ^.X ^ -- -r -H 



Several errors are considered to be terminal. If terminal 
errors occur, the card image is printed, the error message 
is printed, the deck is run through to the 7*' card, and a 
C halt is displayed. When this halt is reset, processing is 
discontinued by the end-of-job routine. 

If the error is not terminal, the card image is printed, an 
error message is printed, and a C halt is displayed. The 
program is restartable, however, and processing will 
continue. 

Following is a list of error messages generated by this 
phase. An asterisk (*) preceding the number indicates 
which are warning errors. 

1 . Number of control cards generated incorrect. 

2. Length of control card text, too great for one card. 

3. Card sequence incorrect. 

4. Title too long or the first text is contiguous. 
*5. First control card character may not be blank. 

6. Not enough breaks for control strings. 

*7. More breaks than control strings. 

*8. Last text not at highest address expected. 

9. Improper card in deck. 

10. End card out of sequence. 

1 1 . Invalid control card identification. 

12. First object card must be an ESL card. 

13. Insufficient core for control card storage. 

14. Invalid entries on *** control card. 

* 1 5. /* card or *** card out of sequence. 

* 16. GEB not used as module identifier. 

17. *** card required before object deck. 

1 8. Too many control card identifiers specified or 
invalid sequence. 
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Output of the LDG Program 



Example 



The header card in stacker 2 should be placed in front of 
the remainder of the output deck in stacker 3. Insert the 
subroutine deck in the RPG II Compiler deck using the 
Program Maintenance Program. The subroutine deck must 
have GEB in columns 91-93. 



Figure 29 is an example of a SPECIAL subroutine. This 
sample program can be used as a base for any SPECIAL or 
EXIT subroutine. The only changes required are modifying 
the subroutine identification characters, entry point, label, 
and routine title. Areas of change are outlined in the sample 
listing. Control cards are created for you. 



OOGEB ANY TITLE DESIRED MAY BE USED 



ERR LOG OBJECT CODE 



ADOR STHT SOURCE STATEMENT 

2 * ^ttt^^^t *********************************************** ************ 

3 • 

4 • THIS IS A SAMPLE CODING FOR THE CONTROL CARDS FOR A 'SPECIAL' 

5 • 

6 • 

7 ♦ 

8 * 

9 • 
10 • 
1 I ♦ 

12 • 

13 • 

14 • 

15 • 

16 • 

17 • 

IQ * ******************************************************************* 



DEVICE REFERENCED IN AN RPG PROGRAM. ALL LABELS WHICH HILL 

NEED TO BE MODIFIED FOR A PARTICULAR PROGRAM HAVE LABELS 

STARTING WITH THE CHARACTER 'f. THIS DECK IS IN THE FORMAT 

REQUIRED BY THE LIBRARY DECK GENERATOR, 

THESE CONTROL CARDS HAY BE USED FOR ANY SPECIAL OR EXIT 

SUBROUTINE. 



00020000 
00030000 
00040000 
00050000 
00060000 
00070000 
00060000 
00090000 
OOIOOOOO 
OOllOOOO 
00120000 
00130000 
00140000 
00150000 
00160000 
00170000 
00160000 



20 * ******************************************************************* 

21 • 

22 • STANDARD LABELS AND LABELS USED TO LINK TO THE LIBRARY 

23 • 

24 • SELECT ROUTINE AND RPG COMPILER COMMUNICATIONS AREA 

25 • 

26 * ******************************************************************* 

PROGRAM SHOULD BE STARTED AT 

STANDARD LABEL FOR INDEX REGISTER 1 

STANDARD LABEL FOR INDEX REGISTER 2 

ADDRESS RECALL REG 

RELOCATION FACTOR FOR CURRENT DECK 
ENTRY POINT TO RESET RELOCATION 

FACTOR AND SCAN TO NEXT 'J' CARD 
ENTRY TO SCAN TO NEXT 'J* CARD WITH- 
OUT RESETTING RELOCATION FACTOR 
ENTRY POINT TO INITIATE OR CONTINUE 

RELOCATION OF THIS DECK 
ENTRY POINT TO INITIATE THE SCAN OF 
THE FILE DESCRIPTION COMPRESSIONS 
ENTRY POINT TO CONTINUE FILE DISC. 
COMP. SCAN 

BOTH OF THE PREVIOUS ENTRIES 
RETURN A POINTER IN XR2 AND A 
CONDITION CODE 'HIGH* IF THAT 
POINTER IS VALID 

START OF THE RPG COMPILER 
COMMUNICATIONS AREA 

HOLDS LAST ADDRESS IN MEMORY -FIRST 
BYTE USED FOR SYMBOL TABLE - 

HOLDS LAST ADDRESS USED FOR SYMBOL 
TABLE. 





2B 


START 


START 







0001 


29 


XRl 


EOU 


1 




0002 


30 


XR2 


EOU 


2 




0008 


31 


ARR 


EOU 


8 




030D 


33 


RELOCF 


EOU 


START+X 


'030D 


030E 


34 
35 


JlEAAl 

• 


EOU 


START+K 


•030E 


031A 


36 
37 


J3EAA1 

• 


EOU 


STAHT+X 


031A 


032C 


38 
39 


RlEACl 

• 


EOU 


START+X 


•032C 


0338 


40 
41 


FlEAEl 

• 


EOU 


START+X 


0338 


033E 


42 
43 
44 
45 
46 
47 


F2EAE1 

• 
* 
• 
• 
* 


EOU 


START+X 


'033E 


028C 


49 
50 


COMMON 

* 


EOU 


START+X 


ozac 


02t6 


51 


ENDCOR 


EOU 


COHMON+90 




52 


* 








02EA 


53 


ENDST 


EOU 


COHMON+94 




54 


* 









00200000 
00210000 
00220000 
00230000 
00240000 
00250000 
00260000 

00280000 
00290000 
00300000 
00310000 

00330000 
00340000 
00350000 
00360000 
00370000 
00380000 
00390000 
00400000 
00410000 
00420000 
00430000 
00440000 
00450000 
00460000 
00470000 

00490000 
00500000 
00510000 
00520000 
00530000 
00540000 



Figure 29 (Part 1 of 4). Sample Coding for SPECIAL Device 
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ERR LOG OBJECT CODE 



ADDR STMT SOURCE STATEMENT 



0000 
0001 
0003 
0005 
0007 
0009 
OOOA 
OOOB 
OOOD 
OOOF 
0010 
0011 



0000 
0002 
0004 
0006 
0008 
0009 
OOOA 
OOOC 
OOOE 
OOOF 
0010 
0011 



56 * 

57 • 

58 * 

59 • 

60 * 

61 * 

62 * 



THE fOLLOHING IS A SKELETON FOR A FILE DESCRIPTION 
COMPRESSION 



6^ FCFG 
65 



OS 
DS 

66 OS 

67 DS 

68 FCENTa DS 

69 DS 

70 DS 

71 FCrONT DS 

72 DS 

73 FCOVA OS 
7<t OS 
75 DS 



CLl 
CL2 
CL2 
CL2 
CL2 
CLl 
CLl 
CL2 
CL2 
CLl 
CLl 
CLl 



FLAG aVTE FOR COMP. ALWAYS X'FF- 

OUTPUT BUFFER 9 

INPUT BUFFER ADDRESS 

PRINT BUFFER ADDRESS 

IOCS ENTRY POINT ADDRESS 

FLAG BYTE 

FLAG BYTE 

HOLDS IDENT FOR SPECIAL ROUTINE 

EXTERNAL INDICATOR ASSIGNMENT 

DEVICE CODE B'OXXXlOlO' FOR SPECIAL 

BLOCKING FACTOR 

RECORD LENGTH 



00560000 
00570000 
00580000 
00590000 
00600000 
00610000 
00620000 

006<.0000 
00650000 
00660000 
00670000 
00680000 
00690000 
00700000 
00710000 
00720000 
00730000 
007^0000 
00750000 



0012 
0013 
001^ 



77 « *•**•**•***«•*«**•**«**•••«•*«*****•*•«*••***«*«««•«**•«««•«««•«*«« « 

7B ♦ • 

79 ♦ THE FOLLOWING IS A SKELETON FOR A SYMBOL TABLE ENTRY • 

80 • * 

8 1 * ****************** **************************************** ********* * 

LENGTH FOR FIELD ENTRY 
FLAG BYTE SPECIAL NEEDS 6' 
IDENT FOR SPECIAL C'ii' HOLDS ENTRY 
POINT AFTER SELECTION 



0012 


83 


STLEN DS 


CLl 


0013 


8^ 


STFLAG DS 


CLl 


0015 


B5 


STIDNT DS 


CL2 




86 


* 





00770000 
00780000 
00790000 
00800000 
00810000 

00830000 
008^0000 
00B50000 
00860000 



ee * ******************************************************************* 

89 • 

90 ♦ THE FOLLOWING DC CONTAINS THE ID'S FOR THE CONTROL CARDS 

91 ♦ 

92 * ******************************************************************* 



00880000 
00890000 
00900000 
00910000 
00920000 



0000 

0000 DIOIDI 



9*. 
95 

96 • 

97 ♦ 
99 ♦ 

100 ♦ 

101 ♦ 

102 ♦ 

103 ♦ 
10*. • 

105 • 

106 • 

107 ♦ 

108 ♦ 

109 • 



ORG 

DC CL3»JJJ« THREE CONTROL CARDS ALL WITH IDENT 

'J' AND INSERTED IN FRONT OF THE 
DECK 
t*************m*************** ************************************* 

THIS CONTROL CARD SCANS THE 'F- COMPRESSIONS FOR REFERENCE TO 

*»»* IF FOUND IT SETS THE FLAG BYTE AT X«007B' TO X'FF'. 

IF EITHER FOUND OR NOT FOUND IT STARTS THE SCAN FOR THE NEXT 

CONTROL CARD, 

t********* ************************************ ********************* 



009^0000 
00950000 
00960000 
00970000 
00990000 
01000000 
01010000 
01020000 
01030000 
OlO^OOOO 
01050000 
01060000 
01070000 
01080000 
01090000 



0017 7C 00 76 

OOIA <►£ 01 ^3 030D 

OOIF CO 87 0338 

0023 60 01 *>5 OC 

0027 SB OA Of 

002A B9 85 OF 

0020 F2 96 07 



Ul 

112 FLG 

113 ♦ 
lU • 

115 ♦ 

116 • 
117 

lie 

1 19 ♦ 

120 

121 

122 

123 SPCAl 

12^ 

125 

126 



ORG 
EOU 



X«0017' 
START*X»78' 



USING STARTtXRl 

MVI FLGI.XRH ,X'00* 

ALC iENT«Y(2,XRH .RELOCF 

B FlEAEl 

USING FCFG,X«2 

CLC iIDENT(2,XRl ) (FCIDNTI ,XR2> 

TBM FCDVA(,XR2),B'00001010' 

T8F FCDVAI , XR2 J .B • 10000 10 1 • 

JC SPCA2,X«96' 



REQUIRED FOR EACH CONTROL CARD 
AREA FROM X*78» TO X'FF' IS 

USABLE FOR WORKING STORAGE 

THIS BYTE USED TO FLAG IF 

ROUTINE IS REFERENCED ON 'F' 

SPECIFICAT IONS 
VALID AT ENTRY TO ANY CTL- CARD 
INITIALIZE FLAG FOR NOT USED 

ON FILE DESCRIPTION SPECS- 
CALCULATE TRUE ENTRY ADDRESS 
INITIATE SCAN OF 'F' COMPS, 
VALID UPON RETURN FROM FlEAEl 
IS THE IDENT THE RIGHT CHAR 

AND IS DEVICE CODE THAT FOR 

'SPeClAL' 
IF THIS IS NOT THE RIGHT COMP, JUMP 



Oil 10000 
01 120000 
01130000 
OIUOOOO 
01150000 
01160000 
01170000 
01180000 
01190000 
01200000 
01210000 
01220000 
01230000 
01?*>0000 
01250000 
01260000 



0030 7C FF 78 
0033 9C 01 08 ^3 

0037 CO 87 033E 

0038 DO 8<. 23 
003E CO 87 031A 



128 
129 ♦ 
130 

131 • 

132 SPCA2 
133 

13*> 

135 • 

136 ♦ 



MVI FLGC.XRl) ,X'FF» SET FLAG TO INDICATE USED ON 

FILE DESCRIPTION SPECS. 
HVC FCENTa(2,XR21 ,»6NTRYI,XR1 » MOVE ENTRY ADDRESS TO THE 

FILE DESCRIPTION COMP. 
B F2EAE1 ELSE SCAN TO NEXT COMP 

8H SPCAIUXRI) IF POINTER STILL OK LOOP 

B J3EAA1 GET NEXT 'J' CARD 

THIS ENTRY WILL NOT CLEAR T 
BYTE AT FLG. 



012B0000 
01290000 
01300000 
01310000 
01320000 
01330000 
013^0000 
01350000 
01360000 



00^2 0000 
00*><t 7876 



00<>3 
00^5 



138 KENTRY DC 

139 dlDENT DC 



AL2( SUBHf I) 
CL2*i(i» 4 



0002 1^1 



DROP XR2 



ENTRY POINT AOOR. TO BE RELOCAT 
TWO CHARACTER IDENT FOR ROUTINE 



Identify your subroutines by 
replacing these # signs with 
identifying characters. 



01380000 
01 390000 



Figure 29 (Part 2 of 4). Sample Coding for SPECIAL [)evice 
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ER« LOG OBJECT CODE 



flODR STMT SOURCE STATEMeNT 



l^^ * 

L^5 * THIS CONTKOL CARD DETERMINES THE END ADDRESS TO BE USED 

1^6 * 

1^7 * IN THE SEARCH OF THE SYMBOL TABLE DONE BY THE NEXT CONTROL 

IA8 • 

M9 * CARD. 

150 • 

151 « *«««***•*****«*****«* ««*««;•• ••*****••*•«««*«*«••***•>•****«•****«««« 



OU30000 
01^^0000 
01^50000 
0U60000 
01^70000 

oi^aoooo 

01A90000 
01500000 
01510000 



153 ENOa 

15^ * 

155 • 

156 * 

157 • 

158 * 

159 * 



STAftT*X' 7D' 



THIS TWO BYTE ARE* WILL HOLD 
THE ADDRESS TO CONTROL THE 
SYHBOL TABLE SCAN. IT HILL BE 
THE ADDRESS OF THE END OF THE 
SYMBOL TABLE Oft THE FIRST 
TABLE ADDRESS TABLE POINTER 
WHICH EVER IS HIGHEST 



01530000 
O15A0000 
01550000 
01560000 
01570000 
01580000 
01590000 



0017 

0017 4C 01 7D 02EA 



OOIC C? 02 FFFC 
0020 36 02 02E6 



00?A B9 18 02 

0027 F? 10 0^ 
002A 6C 01 70 04 
002E CO 87 031A 



161 

162 

163 * 

16A 

165 

lb6 * 

167 

168 

169 * 

170 

171 

172 SPCBO 

173 



ORG X'0017' 

MVC ENDa(2,XRl) ,ENDST 

LA X'FFFC ,XR2 

A ENDC0RtXR2 

USING STLEN-1,XR2 

TBF STFLAGI ,XR2l ,X' 18* 

JT SPCBO 

MVC EN0a{2,XRl ) ,STI0NT(,XR2) 

B J3EAA1 

OftOP XR2 



INITIALIZE END ADDRESS TO END 

OF SYMBOL TABLE 
INITIALIZE XR2 TO NEGATIVE 4 
POINT XR2 TO FIRST ENTRY IN 

SYHBOL TABLE 

TEST IF ENTRY FOR TABLE OR 

ARRAY 
IF NEITHER — > JUMP 
ELSE RESET THE ENO ADDRESS 
GO GET NEXT CARD 



175 
176 
177 
178 
179 
180 
181 
162 



THIS CONTROL CARD CHECKS THE SYHBOL TABLE FOR REFERENCES FROM 
CALCULATIONS. IF REFERENCED THERE OR ON 'F* SPECS RELOCATION 
OF THE DECK IS INITIATED 



01610000 
01620000 
01630000 
01640000 
01650000 
01660000 
01670000 
01680000 
01690000 
01700000 
01710000 
01720000 
01730000 

01750000 
01760000 
01770000 
017BO000 
01790000 
01800000 
01810000 
01B20000 



0017 

0017 4E 01 51 030D 
OOIC AC 01 30 02E6 
0021 5E 01 30 55 
0025 AD 01 30 02EA 
002A F2 82 18 
0020 C2 02 0000 

0031 90 01 OA 53 
0035 B8 EO 02 
0038 00 96 21 
003B 9C 01 OA 51 
003F BA 01 02 
00A2 F2 87 07 
00A5 70 FF 7B 

OOAB CO 01 030E 
OOAC CO 87 032C 



18A ORG X»0017» 

185 ALC iENTI2,XRl) .RELOCF 

186 MVC SPCB2*3I2.XRn,ENDCOR 

187 SPCBl ALC SPCB2+3(2,XRI1,STSTEP(.XR11 

188 CLC SPCB2*3(2,XR1I,ENDST 

189 JL SPCB3 

190 SPCB2 LA ♦-•,XR2 

191 USING STLEN-I,XR2 

192 CLC ST1D><T12.XR2) .ilDNl ,XR1) 

193 TBN STFLAG(,XR2).B'IilOOOOO' 
19A BC SPCBK.XRIJ ,X'96' 

195 MVC STIDNTt2,XR2I .iENTUSRI) 

196 SBN STFLAGI ,XR2» .B'OOOOOOOI' 

197 J SPCBA 

198 SPCB3 CLI FLGI,XR1),X*FF' 

199 • 

200 BNE JlEAAl 

201 SPCBA 8 RlEACl 



START OF CONTROL CARD TEXT 
CALCULATE EfiTRY ADDRESS 
INITIALZE LA BELOU 
STEP BACK TO NEXT ENTRY 
CHECK FOR END OF SYMBOL TABLE 
IF BEYOND END --> JUMP 
POINT TO ENTRY 

IS THE lOENT CORRECT AND 

THE ENTRY FOR AN EXIT LABEL 
IF NOT CORRECT ENTRY — > LOOP 
ELSE MOVE IN ENTRY POINT 
SET FLAG FOR ROUTINE FOUND 
START RELOCATION OF ROUTINE 
WAS ROUTINE REFERENCED FROM 

FILE DESCRIPTION SPECS- 7 
NO - UNUSED SCAN TO NEXT DECK 
YES - USED AS SPECIAL RELOCATE 



018A000O 
01850000 
01860000 
01870000 
0I8B0000 
01890000 
01900000 
01910000 
01920000 
01930000 
019A0000 
01950000 
01960000 
01970000 
01980000 
01990000 
02000000 
02010000 



0050 0000 
0052 7878 



005A FFFC 



0051 
0053 



203 iENT 
20A #1DN 



DC 
DC 



206 STSTEP DC 

207 ♦ 



AL2(SUBR*f) 
CL2'ii' 




ENTRY POINT FOR RELOCATING 
IDENTIFICATION 



NEGATIVE LENGTH OF SYMBOL 
TABLE ENTRY 



Replace these # signs with 
the characters identifying 
your subroutine. 



02030000 
020A0000 



02060000 
02070000 



Figure 29 (Part 3 of 4). Sample Coding for SPECIAL Device 
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ERR LOG OBJECT CODE 



ADDR STMT SOURCE STATEMENT 

209 * ****************************************************************** 

210 • 

2U * THE FOLLOWING DC CONTAINS THE PROGRAM TITLE TO BE PRINTED 

212 * 

213 • ON THE RPG LISTING AND SHOULD 8E CHANGED TO REFLECT THE 
2U ♦ 

215 * NAME OF THE SUBROUTINE. 

216 ♦ 

217 * ♦•♦♦*•♦••*••*♦♦••*••********♦♦♦•*•*****•*•*♦♦♦•**♦•♦*•♦•**♦•*♦••»• 



219 



ORG 



SIGNALS START OF TITLE 



02090000 
02100000 
021 10000 
02120000 
02130000 
021^0000 
02150000 
02160000 
02170000 

02190000 



0000 E2D7C5C3C9C1D3^0 00 1 D 221 

0008 C961D*^0D9D6E'»E3 221 

0010 C9D5C5<»07S7d«0<»0 221 

0018 40't0^0'»0<i040 221 



CL30»SPECIAL I/O ROUTINE *#' 



\ 



Replace these # signs with 
the characters identifying 
your subroutine. 



223 * *•*«****♦*♦♦***♦♦*********♦***«****«***♦•*********♦♦*****«***♦#*** 
22** ♦ 

225 • THE FOLLOWING CODE REPRESENTS THE FUNCTIONAL CODE FOR THE 
22k> * 

227 * 

228 * 
22^ * 

230 ♦ 

231 • 

232 • 

233 ♦ 
23^ ♦ 

235 * *•**••#•#•••#*•*#•#•*•***«*#*•*• 4l* ***•*•••«•*##*••*«*•**•*•**•*«** 



USER ROUTINE. THE ABOVE CONTROL CARDS ASSUME THE ENTRY POINT 
IS AT SU6R*». THE ENTRY POINT IS UNIQUE TO EACH SUBROUTINE. 
THE ENTRY POINT IS THE LABEL ON THE ROUTINE CODE, NOT THAT 
ON THE START CARD. 



02230000 
022<.0000 
02250000 
02260000 
02270000 
02280000 
022^0000 
02300000 
02310000 
02320000 
02330000 
023^0000 
02350000 



237 

238 
239 
240 
2<.l 
242 
2'»3 
2<t<t 

2'»6 
247 
248 
249 
250 
251 
252 
253 
254 



♦ THE ROUTINE mUST MEET THE FOLLOWING REQUIREMENTS 
* 

♦ 1. WHEN ENTERED FOR INPUT OR OUTPUT (NOT EXIT) IT MUST 

♦ ACCEPT THE STANDARD SPECIAL I/D LINKAGE PARAMETERS. 
* 

♦ 2. WHEN ENTERED VIA AN EXIT FROM CALCULATIONS IT MUST 

♦ ACCEPT THE STANDARD EXIT LINKAGE AND PARAMETERS. 
* 

♦ 3, IT MUST INDICATE END OF FILE BY PROVIDING THE CORRECT 

♦ COMPLETION CODE IN THE DTF. 
♦ 

♦ 4. IF A DIFFERENT AREA IS USED FOR THE ACTUAL INPUT OR 

♦ OUTPUT BUFFER THE DATA MUST BE MOVED TO OR FROM THE ADDRESS 

♦ SUPPLIED IN THE OTF. 
* 



02370000 
02380000 
02390000 
02400000 
02410000 
02420000 
02430000 
02440000 
02450000 
02460000 
02470000 
024S0000 
02490000 
02500000 
02510000 
02520000 
02530000 
02540000 



256 ORG 
0000 258 SUBRii EQU ♦ 



SIGNALS START OF ROUTINE TEXT 

THIS IS THE ENTRY POINT TO THE ROUT. 



02560000 
a25fl0000 



Replace these # signs with 
the characters identifying 
your subroutine. 



260 ♦♦*♦♦♦♦ 



ROUTINE CODE IS PLACED HERE 



****** *** 



0000 262 END SUBRf I 



THIS INSURES PROPER LISTING FROM RPG 



Figure 29 (Part 4 of 4). Sample Coding for SPECIAL Device 
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Appendix E: Assembler Language Subroutine To COBOL or FORTRAN Linkage 



This section describes standard linkage conventions for use 
between modules produced by the System/3 language 
translators: COBOL, FORTRAN, and Basic Assembler. 
Programmers using standard linkage conventions are able 
to code routines in the language most appropriate to the 
function being performed, with the assurance that effective 
and permanent communication has been estabh&hed. Figure 
30 illustrates the standard described on the following pages. 



* 
* 

•k 


SAMPLE SYSTEM/3 LINKAGE 


-- MODULE A CALLS MODULE B 






EXTRN MODE 




(axRl 


EQU 


X'Ol' 




@XR2 


EQU 


X'02 • 




MO DA 

•k 


START X'OOOO' 




* 
•k 


INITIALIZE XRl AND XR2 


TO TEST SAVING 






L 


XR1,@XR1 








L 


XR2,@XR2 








B 


MODE 


CALL MODULE B 






DC 


AL2 (PLIST) 




* 




HPL 


X'6F' ,X'6F' 


HALT 00 AFTER RETURN 


* 


PARAMETER LIST 




PLIST 




EQU 


* 








DC 


AL2 (SAVA) 


ADDRESS OF SAVE AREA 






DC 


AL2 (PARMl) 


ADDRESS OF FIRST PARAMETER 






DC 


AL2 (PARM2) 


ADDRESS OF SECOND PARAMETER 


k 




DC 


XLl^OO" 




■k 
k 


PARAMETERS 






PARMl 




EQU 


EQU * 








DC 


CLS^FIRST" 


PARM2 




EQU 


* 




■k 




DC 


CL6' SECOND' 


k 

k 


SAVE 


AREA 






SAVA 




DC 


XLl'BO ' 


INDICATOR BYTE -- ASSEMBLER MAIN 


k 




DC 


CL6 'MODE' 


MODULE NAME 


XRl 




DC 


CL2'R1' 




XR2 




DC 
END 


CL2'R2' 
MO DA 





Figure 30 (Part 1 of 2). Illustration of Standard Linkages 
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* 
* 

it 




SAMPLE SYSTEM/3 LINKAGE 


-- MODULE A CALLS MODULE B 


(aXRl 






EQU 


X'01» 






@XR2 






EQU 


X'02» 






(SARR 






EQU 


X»08' 






@IAR 






EQU 


X'lO' 






if 






ENTRY 


MODE 






MODE 

* 






START 

ST 
LA 
USING 


X'OOOO' 

SAVARl, (aXRl 

SAVA,@XR1 

SAVA,(aXRl 




SAVE CONTENirS OF XRl 

XRl WILL BE EASE FOR SAVE AREA 








ST 


SAVAR2(,(axRl) 


,(iXR2 


SAVE CONTENTS OF XR2 








ST 


SAVART(,{aXRl) 


,(aARR 


SAVE CONTENTS OF ARR 








L 


SAVART(,{aXRl) 


,@XR2 


XR2 POINTS TO ADDRESS OF PARM 
LIST 








L 


1{,@XR2) ,@XR2 




XR2 POINTS TO PARAMETER LIST 


it 






ALC 


SAVART (,@XR1) 


,TWO(, 


(iXRl) SET RETURN POINT 2 PAST ARR. 


* 

if 


BODY 


OF ROUTINE 












L 


SAVAR2(,@XR1) 


,(axR2 


RESTORE XR2 








L 


SAVARl (,{aXRl) 


,@XR1 


RESTORE XRl 


it 






L 


SAVART, (aiAR 




RETURN 


* 
it 


SAVE 


AREA 








SAVA 






DC 
DC 


XL1'30' 
CL6*M0DE' 




INDICATOR BYTE ~ ASSEMBLER LANG 
MODULE NAME 


SAVARl 




DC 


XL2'00 ' 




CONTENTS OF XRl ON ENTRY TO THIS 


* 












MODULE 


SAVAR2 




DC 


XL2'00 ' 




CONTENTS OF XR2 ON ENTRY TO THIS 


* 












MODULE 


SAVART 
it 




DC 


AL2{00) 




RETURN POINT 


TWO 

* 






DC 
END 


IL2'2' 







Figure 30 (Part 2 of 2). Illustration of Standard Linkages 
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STANDARDS 

In order to be standard, linkage must be accomplished as 
follows; 



When control reaches a program entry point, ttie 
address recall register (ARR) must point to a 2-byte 
field containing the address of the first byte of the 
parameter list. 



1 . Each module must have a save area (Figure 3 1 ). 



Byte 


Bit 


Description 


Program 








0=Not a nr>ain program 


Subroutine 






1 = Main program 


Main program 




1-3 


000=FORTRAN 


Subroutine 






001=COBOL 


Main program 






011=Basic Assembler 






4-7 


Reserved 




1-6 




EBCDIC name, 


Subroutine 






left justified 


Main program 


7-8 




Value of index register 1 
(XR1) at entry 


Subroutine 


9-A 




Value of index register 2 
XR2) at entry 


Subroutine 


B-C 




Return point in 
calling program 


Subroutine 


Note: 


Main program refers to the program with the highest 


level of control. 







Figure 3 1 . Save Area 

2. Each module that calls another module must have one 
or more parameter lists (Figure 32). 



Byte 


Description 


0-1 


Address of save area in this program 


2-3 


Address of first parameter 


(2N}-(2N+1) 


Address of Nth parameter 


(2N+2} 


XLI'OO' to indicate end of parameter list 


Note: The first two bytes as well as the end-of-parameter-list 
indicator (XLI'OO') must be present in all parameter lists. If 
no parameters are to be passed, the parameter list will be only 
three bytes in length. In this case, byte 3 will be Oand the 
called program will indicate a parameter list length of 2. 


Note: Addresses in parameter lists refer to the first byte 
(byte with the lowest address) of the item. 



The Basic Assembler language code to call a COBOL 
or FORTRAN subroutine would normally be as 
follows: 



EXTRN 
B 

DC 
RETNPT EQU 



SUBR 
SUBR 

AL2(PARAMS) 



Note that the pointer to the parameter list points 
to the left byte of the save area address. 

Normal return is accomplished by placing in the 
instruction address register (lAR) a value that is 
two larger than the contents of the ARR when the 
program was entered. 

Index registers 1 and 2 (XRl and XR2) must be 
saved upon entry in the called program's save 
area, and restored at exit. 

The address recall register need not be restored, 
but the return address must be determined and 
placed in the called program's save area. 



Figure 32. Parameter List 
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Appendix F: Basic Assembler Sample Programs 



Along with the Basic Assembler, you will receive a sample 
program. By executing the sample program you can verify 
that the Basic Assembler is operational. 



indicates the results of the test on the message display 
unit. If the number zero is tested, the program is 
terminated. 



MODEL 10 AND MODEL 12 SAMPLE PROGRAM 

This section describes the sample program and explains the 
operating procedures necessary for executing it. General 
operating procedures for the Basic Assembler are found in 
the IBM System 13 Model 10 Disk System Operator's Guide, 
GC2 1 -7508, IBM System/3 Model 12 Operator's Guide, 
GC2 1-5 1 44, and in Part II of this manual. 



Program Description 

The sample program is called Prime Number Test Program. 
The program reads a number from the console display 
data switches, tests to see if it is a prime number, and 



Three halt codes are used in this program to request input 
and indicate whether the number is prime. They are: 

Hah Code Meaning 

EN Enter a number to be tested. 

IP The number tested is prime. 

NP The number tested is not prime. 

Figure 33 shows the OCL that assembles, link edits, and 
executes the sample program. Figure 34 shows the sample 
program statements. 
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NOTES: 

1 . Specifies the location of the assembler program. 

2. Name of assembler sample program in the source library. 

3. Specifies the source library with the sample program. 

4. Library in which the output assembler object (R) module 
is stored. 

Figure 33. Model 10 and Model 12 Sample Program OCL 



5. Name given to the output assembler object (O) program. 

6. Module name and object program name (R). 

7. Specifies the object (O) program, stored on the Overlay 
Linkage Editor program pack by default. 

If the system configuration does not include drive 2, references 
in the OCL to F2 and R2 must be changed to specify devices 
available on the system. 
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Figure 34 (Part 



2). li<;iing ofSlLitements in Mod^i 10 and Model 12 Ba^u- Assembler Sample Program 
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lASSPR PPIHE NUMEFP TEST PROGRAM 

ERR IOC OBJECT CODE AOOR STMT SOURCE STATEf<EKT 
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TOTAL STATF-MFN'TS IN ERROR IN THIS ASSEMBLY 



SASSPR 

SYMBOL LEN VALUE nprfv 



CROSS PEFFRENCF 
RFFERENCES 
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TfMPAR 


00? 


OL^?D 


0D6^' 


CO'i^* 


C044* 






















TE S T *( 


002 


OC?f 


<^fj b 


0029* 


00^0* 


OOM 


00A4 


















THPEf 


002 


0C7fe 


'"Cei 


CO?-^ 
























TW^ 


002 


cm^ 


0C60 


00?*) 
























XPl 


OCl 


001 


0067 


001^ 


0015* 


0017 


0018 


0018 


0024 


0024 


0026 


0028 


0028 


0C29 


0029 










00 30 


00?1 


0031 


CC32 


0032 


0033 


0033 


0034 


0034 


0035 


0035 


0036 










0036 


0037 


CC37 


CC^O 


0C4C 


CC4I 


CC41 


O0'^3 


0043 


0044 


00^-^ 


0045 










00'* 6 


0050 


005^ 




















ZERO 


002 


0070 


cr^p 


0018 

























TOTAL STATEMENTS IN rP'^C^l TN THIS ASSE^eLY ■ 



OL105 I TH' 
OL103 T TCTi 



^ '^-^ -i: rn OF tASSPP TS 126 OECIf<AL. 

L N:.>fr"^ V^ LIBRARY SFCTCRS PFCUIRFO IS 2 

-tfl<^<;^'r- ,PACK-RIR IP KL'NTT-Pl , PE T A ! N'-T , I T BR ARY -P . C *T EGORY-000 



Figure 34 (Part ' '^f 2). Lisimg of Statements in Model 10 and Model 12 Basic Assembler Sample Progiain 
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MODEL 15 SAMPLE PROGRAM 

This section describes the sample program and explains the 
operating procedures necessary for executing it. General 
operating procedures for the Basic Assembler are found in 
the IBM System 1 3 Model 15 Operator's Guide, GC2 1-5075 
and in Part II of this manual. 



The sample program uses Model 1 5 macros and therefore 
the assembly step must be preceded by a macro processor 
step. 

Figure 35 shows the OCL that assembles, link edits, and 
executes the sample progiam. Figure 36 shows the sample 
program statements. 



Program Description 

The sample program is called System Input Device List 
Program. The program reads records from the system input 
device and lists them on the system printer. Statements 
are read and listed until one of the delimiters (/*,/&, or 
/.) is encountered. If the delimiter is /*, another file can 
be listed under operator control. 

There are three messages displayed by this program: 

Message Meaning 

EOF ON SYSIN End of file encountered on the 

system input device. More files 
can be printed if the EOF condi- 
tion is caused by /*. The operator 
replies P to print another file or 
C to cancel. 



PRINTER ERROR 



A permanent printer error has 
occurred. The program issues the 
message and then goes to end of 
job. (The message is displayed and 
then removed when end of job is 
reached. However, the message is 
in the system history area and may 
be displayed from there.) 



SYSIN ERROR A permanent system input device 

error has occurred. The program 
issues the message and then goes to 
end of job. (The message is dis- 
played and then removed when end 
of job is reached. However, the 
message is in the system history area 
and may be displayed from there.) 
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IBM 



tEtM Sy»twn/3 B<uc Awwrnblei Coding Fonn 



.rocr.»« 


fv:vci.i.*C 


C.<„i.,.c 


f*.C:i 


-> 


h-nOC.H*W«FB |t*'f 


■•iTBUC'tOw* 


^c. 


c>or !;;:.« 1*^1 'iviv^f^ 


.:.-tvtNi 


V^trn.Sitj,^ 


""■": . ^-"r'ni 


If -s .s. JO J. /f^'/'a .* ;/ 7S .-. JO , J. .«*»..-* n« .1 W O M « « ., M ♦»«) i> W W >- WM 17 


i* is60 ti ^: W fu. S5M 6> M «70 1. ,f n n 7^ t« n »» T* 90 *i ■)? M W fi 


Wt-ai H Al» 91 n 11 »4 


//l^SAMP TOB i ■ 


i- :i^ ii 


^ ■ M '1 


y. iia 


,11 


111 ; ! ! 


_. ^ ,|. _ ^ 




W ' . r . ; 


-^ . U f i -1-' ' 


] b ' f 


1 1 






//' LCAD InPXDvl^F 


^ ^ IS^ 




1 • 




^^ ! 






: ^' :r":/nT : : ' . 




-^" "ii^^'ir 




ill 1 




77 .Fm^NArE-Vsp 


U|r:e ft£lirA»Hi-T,jU|(«ii 


f i^PAJC^k-RzIflS 


RJ2,Tl(>i/^K|Sl- 


c:_i- 1^-^ 


M ; ( 


' 


//, CC^'PILE SDJR'c 


E4«ts£L?Wr'T-'pljB 








T^:t;t::|:[:::^ 


.„ _ J ■ 4 J L 




.. |j.4. ■■^— ;;jt35 


-- . . ..i ^ 1 •; .. --_.. 1- 


":^':~:ti:^: 


M f ■ 1 


L _L 


1 '■ 


f -j. ,j 


tt 


l-'j ■ f-^J -4- ' l-i- f 


p : 1 1 '; 


'•' vrii, 




■ i ' ■ 


J ±_:Mu. 


i i -1 I- - 




t . [ 


1 ( i ' 




i J_ ] I 1 


( 


' ' ' ■ 




1 . ^ , 


1 , 


-r— [^ 


^ :'\:^1 1!( 


■* 1 [ J 


! ! 


i 1 1 . I 


J i I 


■" *' t 


i ^.4 


"//"TlJ^d $A5Se/ljF 


i 


i: ^t 


J.uil -^ 




f • ! f 'r^ 




^d|4_ _...!.. -.|., 


. i ' . t i_ ^ ^ 


1 -- T ^ -- 


♦- - 4- , 4- ~4_J_ - i 


1 1 L J 


1 ' 


// sLlTCH IXxKb^ 


1 1 t 


" ±"|t]:' ":■*". ^ 


. •: ' 








.|..::r:_4.. 


— -1-H- '- 




r ! J ^ j_ 


/[/ fiTe vamJ-^;^ 


W^ A|I f aS N ^Sl NiljV!- f 


UJp|A«K!-[R|2ftip2J 


.[TRACjKt -2[i 


1 1 










■ j j : 






I, Li [ l! 




// FlriLt ,H^nE-<u^o 


■ 1 


■SLiPAClKhToxDAO 


x.TaSSKS.iilll II It II : 


^1 L L i L jj. _Li 






1 L ^ ' tt 




r t1^^ 


' 






^7 rrikt lMAnfi-|5^ 


dftC£,TlETAINi-S,gHn 


■-Rr.tAtCKJ-RlR^ 


R3L 1 ' , 




1 ^ ' 


^'~' '■"*"■" 1 




1 (Si ' 




1 " " 




' jVt!: ":._: , ti rn QiE 


/ / 3ori*>ILEL OBjtfife 


T-Ri'i:; :i^^""■■ 


"l 1 i-^r 


1 








i x"i"l""4 


l^ ^iif I 


, ^ T 


1 
1 




- 1- 


r- 


1 J 3 * 4 6 ' 8 ^ 10 11 1? I> M IH6 


i: .» 11. 30 7) /7 ;i >i » 3« 77 » W 3D J1 r? .C! M -e J« 1) ,V1 J9« 11 tT <: U «5 4« *7 .a *9 » 51 \7 13 M W)e 11 M »60»l n M M 66«6 B7 6B «S70 71 17 TJ M 7S7« 77 Tfl J^aOm 37 W W (W 


M 67 M B9 M 91 SJ M <H 



IBM 



lEtM SyHtm/2 Bjvc AiMmtrtar Coding Form 



m<>.I..M 


Ft,M:H.f*c 


cn^HiC 




P*C( 


ar 


........ I..,, 


IJ,S1Hi.tTIW 


*S phjM>i 




CAPOtLtC 


I HO ^■^;watH 


S.ftTfMfr.' 


■.T. ,, 


■7 9* 


, .r^ . sMb 


J 10 (1 n M M i; lb 


w IS i<( 20 ?t -JJ ?3 I^Tb 7« 71 78 7^ 3U J. n; •! >• 36 a; J^ t't j^ « 41 .7 tj " -16 •€ '; »8 *V M i' iJ 15 M SiW IT M wwTsi* flV w M 65 es 61 M M 70 n J? 7] 7. 75 7t 17 Ti /9 90 8. « W (« 


84 S«8; »» S9 90 ;.■ y 


// 


PlulNl 1 




I ■ 1 1 

il-; 

1 ■ 


i ' : ' 


! 


; 1 1 


1 i 1 


1 4-11- 


1 




-^-4-1- 




., -.^ IN 


\ 






OJAD 


' 




1- ^ 


i 1 . 






■i 1. ! 




-i-J^l- 


1 


// 


t 












! 




' 1 f 




. 1 


1 1 


TJ 


F 








j 


'1 


" ■ 1 ■^' * 


1 








^XJ-J-... 




....„-(- 


i!le 


te]AME-$W^ 


Rk » ft £ T A I 


N^,;U 


nIitj-j 


)iLP^ 


KtJDlltDllDl, 


.TRACJtcfs-. 


u 




i -1 


1 c 


1 




II 




f^ -T 


r *H 




1 T 


j . 


1 








! 






n 


F 


t\li 


NlA|rtE-$SO 


utRjce^REtl 


m|n|-,s 


,iUNk^l 


rl-lftz.lP 


^ 


-^ZiRZ 


Rfl.TRlA^K. 


i-X^ 




1 i ; ' 


i 




-f-- 








! 


' T' ^T"' t" 




'■■[■■■■ " 
-1 ^l 




4 ' "" " 






'zAX-tl 


' 






if 


_R 


\M 


1 1 


r- . r 




rH r- 








r 






^ ; ^ 


^ 


■] j-f ■ - 








T(*?>, . 




........ ^-,. 


'""I 1 T~ 






1 

1 L ! 






' ' ■ 1 


L ! 






// 


jPtHAS^" 


nJaiHe^a 


S5>5^ ; 




1 


, 1 




U P . 


1 i 








t 








■■- r ■ 




-l— - . . f ~ 


1 i 


; 


1 




; 


r 1^1 r 


■ I ■ 












/,/ 


^TIO 


I^S^AP-IX 


REF ■^^ : 


- . . 1 

1 1 1 


1 


! 


'- '■ r 


^ i_ 1 


1 






1 " 1 " 


_[. . 








r^ * 




t 't^c" 


! '/ 


4 








H--J pi- 








i ; 






't/ 


JI^iCLU 


oklwArE- 


*ASSpi,^ 


WJZJTI-IR 


±[ 


1 t r 




~^ 


1 








_i J_ ' 






'i' 




L . 






i ^ ■( 


?) 


i 


















i 


_x 


NlClU 


pi H^nv^ 


Tii-PiT^ 


M|tT>-F 


1 




■ ■ 




1 






\ ! 


^ 


j 


( 


1 


1 




: ' 


1 










1 






\ ' 




' 




/i/ 


■e^lo 






r * * 

-i-U" 1 


■ 1 


— i - 












-it-^ii-i- 




■ 1 




7i/ 




~-:"(5m 


— t 7^ 






1 






1 » 


'■ ■ - i— 


[ 
1 t 




L|0^D 


'*AS?PO^F 


I ■ 


J J 


r'" 


.. -L 1 






1 






1-+ - 




_ „ , ! 




// 


4 t 1 






' i 




1 


1 




1 










j 




: ! . 


"■ t-- 


1 _ 


- I 

f 


1 










"7 - 










, i 


T"^n: 


1 1 


i I 








1 1 


, 1 


. . 3. ..|,|a 




IV IS 19 30 71 » Ji JJ » « 77 ?a w 30 ji w n :>* 36 » JJ Bi .i9« *i «»;««*« «r 4s «» n s? w i- » M 57 sf » Wai k w m 6S »* 67 « e» 70 m 77 7] m 75rti 7> r« >» aosi e? w »■ 


» «£ a? W *9 « -n ^v ■»■ *4 -; 



Notes: 

\. Specifies the program pack, 

2. Name of the assembler sample program in tlie source 
Hbrary. 

3. Library in vvliich the output assembler object (R) 
module is stored. 

4. Name given to the output assembler object (0) 
program. 

Figure :?5. Model 15 Sample Program OCL 



5. Module name and object program name (R). 

6. Specifies the system pack. 

If the system configuration does not include the 5444 
drive 2 or the 5445 drive 1, references in the OCL to R2 
and Dl must be changed to specify devices available on 
the system. 



94 



opriONS NOoecK dbject to library dnly oooioooo 

THC- LiSr OF OPTIONS USED 5UR1N& THIS ASSEMBLY IS-- f^OOECK , L I ST , XR6 F . REL , OrtJ 



iASSPR 

SVMB3L 



iASSPR 

»tLPRT 



EXTERNAL SYMBOL LIST 



TYPE 



MODULE 
EXTRN 



VER 01, iOD 03 il-09-73 PAGE 



iASSPR 

ERR LOG UdJECT CODE 



AHDR STMT SGU^^CE SIMEMENT 



VER 11, -11) OJ 1 I- J9- 73 P'VC- 



ICTL 1,71 

ISFQ 73.80 

PRINT NOGEN.SJ JJATA 



00 20>-)3 
JoJ'tO J J J 



tASSPR SYSTEM INPUT 3EVICE (SYSlN) LIST PROGRAM 



ERR LOG OBJECT CODE 



AODR STMT SOURCE STATEMENT 



^joo 02 01 'voec 



i»03^ D2 02 07 



^DOF aC 01 13 

'-»oi2 ac ^0 OF 

^015 7C 01 00 



^018 7C 01 17 



5 




THIS PROGRAM ^EAOS A 


6 




I T ON THE PRINTER. 


7 






8 




THERE ARE THREE MESSA 


9 




MESSAGE TYPE 


LG 




' EOF ON SYS IN' -^TOR 


U 






12 






13 






1^ 






15 






16 




' PR INTER ERROK* -^ f 


17 






18 






19 




•SVSIN ERROR' ^TO 


20 
2 1 







VER 01, ^05 00 11-09-73 PAGE 3 
FILE FRO^ Tne SYSTE'-i I-^JPUT OEVlCE A-N") LISTS 



ES ISS. J ED '^ THIS PR:G«A^: 
ME AN I NG 

FNO 3F F[|.E !-NC()ONT'";<PD iJN SVSIN, 
MORE FILES ^AV fiE PRINTED 11= THF 
EOF CQNOITION IS CAUSED BY 4 »/*', 
THE OPERATOR RCPLYS T[J THIS MESSAGE 
ARE 'P' TO PRINT ANOTHER FILE ANO 

•:• TO :*.ncel and 30 to [f)j. 

THERE HAS oll's A P[. ^■•UNL'^r P^i^ir^ 
ERROR, THE PROGRAM ISSJES THE 
MESSAGE AND GIFS TO END OF JOH. 

THESE HAS BEM A PF7MA\^r\'T SYS IN 
ERROR. T-^^ PROGRAM I-^.SOES THE 
MESSAGE AVjO :~ IF j TO E ^0 OF J0i3 . 



23 tASSPR START X'^OOO' 
JOOl 2^ EXTRN ttLPRT 

<.08C 25 USING 3ASE,RRG 

26 LA BASE. ORG 

28 « PREPARE THE PRINTER FILE FOR JSF 



29 
30 
33 
36 
37 
3U 



LA PRNOTF [ ,BRG) , tDTF 

tALOC 

iOPEN 

MVI SDFSPAI ,tOTF) , 1 

MVI SDF3PC ( , 1>0TF ) , iOCP^ r 



l^^INTER OATA MANAGEMENT 
rST ABL ISH A HASF REGI S T F ,^ 
FrjR THE OATA APEAS 



ALLOCATE PR[ NTFR F I Lt 
IPPr^ P^INTEK FILE 
SfT EO^ SINGLE SPACF 

s- r op~cnot to pr i nt 



MVI 



SYSI'NL*-iSKFCT(,rtRG),iSR^Or SET SYSI'- 



0)E ^1< ISr ^UFF 



^0 ♦ PREPARE TO PRINT A NEW FILE 

41 FILES MVI PRNOTF+tDFSKBI , rsRGl , 1 



StT TO S<IP i3EF:]h;E FI^ST PUNT 



00 06 3 J 00 
000 70000 

jonaoooo 

J 09 0.^00 
00 100 )00 
1 1 
00120000 
JOl 3O0O0 
I <► J 
00150000 
00 160000 
001 70000 

ooiooooo 

00 190 000 
00 2 00 J 00 

002 loaoo 

00220000 

00 2^^0000 
J ? 5 J 
00260.')00 
002 70000 

00/90)00 
00 3 000 00 
303 10000 
00320000 
00330000 
003^0JOO 
00350030 

D0373300 
00330 )OCl 



4018 02 02 00 

4022 BO 50 00 

4025 F2 81 30 

4028 3D 80 00 

V02B F2 3 1 5 3 

402E rtO 60 00 

4031 F2 01 3C 

4034 BC 00 00 

4J37 6C 01 14 04 

403B 02 02 07 

4 42 t3 4 1 OE 

+045 F2 Bl 32 

4 04 8 BC 00 10 

40 4 B BO 4 3 OE 

4 04t F2 n 3 

'♦0 5 1 BC 01 10 

4054 CO 87 401 B 



43 


* 


READ 


FROi 


44 


FILEL 


LA 


45 


♦ 




tRE 


49 






CL I 


50 






JE 


51 






CLl 


52 






JE 


5 3 






CLI 


54 






JE 


55 






MV I 


56 






MVC 


57 






LA 


5B 


4 




IPO" 


bO 






CLI 


61 






JE 


62 






MVI 


6 3 






CLI 


64 






JNE 


o5 






MVI 


66 


NOSKIP 


3 



AD 



FROM SYSIN ANO -^ ^ I N T UNTIL E N :) UF FILF 
SYS INL ( ,RRG) ,SYS 
OPC-N 

tSRFCT( ,SYS) , tS-^f: JF 
EOF 

*.sre:ti ,sysj ,1. .k^ -u 

EOJ 

tSRFcr ( ,SyS i . ss<G;r^. 
SYSER 

tSRFCT ( ,:>YS I , tS^-vj3 
PRiNDTF t-$r)F I RA {? t'^^Hv^ \ 
PRNOTE( ,3^G) , iiJTf 
IPOTP DtV-1403 P 

iOFCMP ( ,1 )TF ) , f : PPr K r 

PRNERR 

iOFSKHf ,SOT F J ,0 .^ 

*.OFCMPi , i )TF) , 1=:: -Vf vf T 

^NOSKI P 

$OFSKB( , ■f-OTF ) , 1 Si 

5= I L F L 



: J M SYSIN 



EOR 

T F S T F J 7 
S " T -^--'U ^- 

s '? f^ F 2 ( r J V .; ) ■■ 

P U ■! T Hi: 
TFST r H 



EOJ 

s y S i ■ ■■ 









aT SYS 
. 1 \ T V ! 



M N n; 



V T '< F : J -^ ) 



T F 
>T 



FOh! . 



■J 0^00)0.) 
OOh I JOOO 
JO42O000 

3 0^3 ,.1 ) ') 
00440000 

00 4 50 ;>'"n 
00 4 .o;. ') 

004 7 )00'1 
0.14 "^000 

;j^ , JJOO 

00 50 noo 
; :) - 1 3 : J 

1 /'. ''30 0J 
jj'j 3) DOG 
J V.^0 )GJ 

3 j: jo joo 

;05b > 10 ) 

)■)'-, ro)^) 

1^: '.woo 

J )5 >^)03 



Figure 36 (Part I of 4). Listing of StateiTients in Model 15 Basic Assembler Sample Program. 
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$ASSPR SYSTEM INPUT DEVICE (SYSIN) LIST Pf^OGRAM 



ERR LOG OBJECT CODE 



^058 02 02 28 

V05F 70 C3 37 
VObZ F2 61 IC 
*065 70 07 37 
^068 CO 81 4016 
406C CO 67 4058 



V070 02 02 36 
*077 F2 67 07 

407A 02 02 ** 
4061 02 02 07 



ADDR STMT SOURCE STATEMENT 



VE^ 01, M3D 00 11-09-73 P4GE 



^061 



f>8 * END OF FILE ON SVSIN 

69 EOF LA EQFMSGl ^atlGJ ,LOG 



70 • 


$LOG 




7^ 


CLT 


REPLY( ,BRti) ,C»C» 


75 


JE 


EOJ 


76 


CLI 


REPLY(,BKGJ.C«P» 


77 


BE 


FILES 


78 


B 


EOF 



80 * ERROR ON SYSIN 

81 SYSER LA SERMSG( ,BRG) ,LQG 

82 * $L0G 

86 J EOJ 

88 ♦ ERROR ON PRINTER 

89 PRNERR LA PE RHSG (. 8=13 ), LOG 

90 • $LOG 

95 * END OF JOB ROUTINE 

96 EOJ EQU * 

97 LA PRNDTF( ,BRG)» $DTF 

98 ♦ $CLOS 
101 * SEQJ 



^T3R EDF MESSAGE 
OPERATOR SAY CANCEL 



OPERATOR SAY PRINT ANOTHER 
INVALIO REPLY, TRY AGAIN 



A\3 SYSIN ERROR MESSAGE 
GO TO EOJ 



HTO PRINTER ER^OR MESSAGE 



CLOSE PRINTER FILE 
30 TO EOJ 



00610000 
30620000 
00630000 
006^0000 
00650000 
00660000 
00670000 
00680000 

00700000 
00710000 
00720000 
00730000 

00750000 
00760000 
00 770000 

00790000 
00800000 
00810000 
00820000 
00830000 



S4SSPR SYSTEM INPUT DEVICE {SYSIN) LIST PROGRAM 

ERU LOC OBJECT CODE ADDR STMT SOURCE STATEMENT 



105 * C3NSTANTS AND DATA AREAS 
408C 106 BASE EQU * 



VER 01, ^30 00 11-09-73 PACE 5 
BASE REGISTER ADDRESS 



108 ♦ SYSIN TABLES 

109 ♦YSINL SRLST BUF 1 -B J FF ^ I , 8UF 2-3UF F 

110 * WORK-MORKAR 
116 ♦ $RLSO 

133 * PRINT FILE TABLES 

134 ♦RNDTF SOTFP OEV- 1 40 3, RC AO-O, I 08A- 

135 ♦ I0AA-PRNBUF,RECL-96, 

136 * OVf L-60,PAGE-66 
160 ♦ $DTFO D 1403-Y 



R2, SYSIN PARAMETER LIST 
SYSIN EQUATES 

PRNIOB. PRINT FILE OTF 

PRINTER DTF DISPLACEMENTS 



V0C3 E7 



223 * SYSTEM LOG TABLES 

224 ♦OFMSG $LWTO COMP-AS , HAL T-A M, SU8H- 

225 * TADR-EOF^GC,REPLY-Y,^L 
40C3 236 REPLY DC CLl'X* 

239 *ERMSG $LWTO COMP-AS , HALT -AM, SJ8H-P 

240 * TAOR-SERMGC 

251 *ERMSG SLHTO C OMP-A S ,H ALT -AM, SUBH-PG, T LEN~1 3 , PRINTER ERROR WTO 

252 ♦ TADR-PERiGC 
400C 263 EOFMGC EOU • 



-PG.rLEN-12, SYSIN EOF HTOR 
ILEN-1,RA0R-REPLY 

WTOR REPLY 
-PG,TLE^-11, SYSIN ERROR HTO 



400C C506C640D6D540E2 40E7 
40E8 

40E8 E2E8E2C90540C509 40F2 
40F3 



264 OC 

265 SERMGC EOU 

266 DC 

267 PERMGC EQU 



40F3 D7D9C9D5E3C5D940 40FF 266 



OC 



CL12' EOF ON SYSIN" 
CLU' SYSM ERROR* 
CL13*PR[NTER ERROR* 



4100 

4100 
4 1D0 OOOOODOOOOOOOOOO 417F 

4180 
4180 0000000000000000 41FF 

4200 



270 * SYSIN BUFFER AND WORK AREAS 

271 ORG 

272 BUFFRl EQU 

273 DC 

274 BUFFR2 EQU 



275 OC 

276 WORHAR EOU 



4200 OOOOODOOOOOOOOOO 422E 277 



OC 



*,128 

* 

XL128'0* 

* 

XL128»0' 

* 

XL47»0' 



427C 

427C 
427C 4040404040404040 4305 282 OC 

4306 283 PRNIOB EQU 
4306 OOOOODOOOOOOOOOO 4337 284 OC 



279 * PRINTER BUFFER ANO WORK AREAS 

280 ORG •,256,X'7C» 

281 PRN8UF EOU * 
CL138* ' 



XL50'0» 



286 * REGISTER LABELS 

0001 287 8RG EQU 1 

0002 288 SYS EQU 2 
0002 289 LOG EOU 2 
4000 290 ENO SASSPR 



ORG TO REQUIRED BQUNQARY 
BUFFER ONE 



BUFFER TWO 
WORK AREA 



ORG TO REQUIRED BOUNDARY 
PRINTER BUFFER 



PRINTER lOB 



BASE REGISTER 

SYSIN PARAMETER LIST POINTER 

SYSLOG PARAMETER LIST POINTER 



rOFAL STATEMENTS IN ERROR IN THIS ASSEMBLY-- 
TOTAL SEQUENCE ERRORS IN THIS ASSEMBLY-- 

Figure 36 (Part 2 of 4). Listing of Statements in Model 15 Basic Assembler Sample Program. 



00850000 
00860000 

00880000 

XQ0890000 

00900000 

00910000 

00930000 

X0094Q000 

X00950000 

00960000 

00970000 

00990000 

XOl 000000 

01010000 

01020000 

X01030000 

01 040000 

X01050000 

01060000 

01070000 

01 08 0000 

01090000 

01 lOOOOO 

01 110000 

01120000 

01140000 
01150000 
01 160000 
01 170000 
01 180000 
01 190000 
01200000 
01210000 

01230000 
01240000 
01250000 
01260000 
01270000 
01280000 

01 300000 
01310000 
01320000 
01330000 
01340000 
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tASSPR 








CROSS REF 


ERENCE 


SYMBOL 


LEN 


VALUE 


OEFSI 


REFEi^ENCES 




tJLPRT 


001 


0001 


002^ 


0059 




tASSPR 


001 


^000 


0023 


0290 




tAlCDI 


001 


0010 


0193 






JAIDAT 


001 


0001 


0198 






iMH5b 


001 


0002 


0196 






tAMNT 


001 


000^ 


0195 






tAlMFM 


001 


0008 


019^ 






tAlPCH 


001 


0020 


0192 






JAIPRT 


001 


00^0 


0191 






$41Pft2 


001 


0001 


0197 






JAIRO 


QOI 


0080 


0190 






iA2ALL 


001 


00^0 


0203 






tA?.AMP 


001 


000^ 


0208 






*A2E3F 


001 


0008 


0206 






$A2HUC 


001 


0002 


0207 






*A2 1ND 


001 


0080 


0202 






iA2MBF 


001 


0010 


0205 






$A20PN 


001 


0001 


0209 






$A2SIN 


001 


0020 


020^ 






iCPCHO 


001 


0010 


021^ 






iCPEOF 


001 


00^2 


0217 






iCPUVF 


001 


00^8 


0213 


0063 




JCPPER 


001 


00^1 


0216 


OObO 




JCPSUC 


001 


00^0 


0215 






JOFARR 


001 


0009 


0168 






tOFATl 


001 


0002 


016^ 






$0FAT2 


001 


0003 


0165 






tOFCHA 


001 


0005 


0166 






tDFCHB 


001 


0007 


0167 






SDFC.^P 


001 


OOOE 


0171 


3060 0063 




iOFOEV 


001 


0000 


0162 






tDFLP 


001 


OOIU 


0183 






IDFLRA 


001 


OOOD 


0170 


0056* 




JOFMSK 


001 


OOIF 


018t> 






$OFQPC 


001 


OOOF 


0172 


0037* 




iOFOVF 


001 


OOIC 


0182 






iDFPGS 


001 


0020 


0186 






joFPia 


001 


0017 


0179 






iOFPIO 


001 


0019 


0180 






JOFPOS 


001 


00 IE 


018^ 






JDFPQ 


001 


001^ 


0177 






JOFPR 


001 


0015 


0178 






JOFPRL 


001 


0018 


0181 






SDFSKA 


001 


0012 


0175 






$OFS<B 


001 


0010 


0173 


00^1* 0062* 0065* 




iDFSPA 


001 


0013 


0176 


0036* 




JOFSPB 


001 


0011 


017^ 






tOFUPS 


001 


0001 


0163 






iOFXRS 


001 


0008 


0169 






$OTF 


001 


0002 


0161 


0029* 0036 0037 


0057* 0060 


iOCPRT 


001 


00^0 


0221 


0037 




iSRSFl 


001 


0002 


0118 






iSRBF2 


001 


000^ 


0119 


0056 




iSREOF 


001 


0050 


0129 


00^9 




iSReaj 


001 


0080 


0131 


0051 




JSRERR 


001 


0060 


0130 


0053 





vn t 01 , ^d) 01 1 ! -)9-73 pace 



0062 0063 0065 0097* 



Figure 36 (Part 3 of 4). Listing of Statements in Model 15 Basic Assembler Sample Program, 
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tASSPR 



CROSS REHF.ReNCt: 



syMB:)L 


LEN 


VALUE 


DEFNJ 


REFERENCES 




tSRFCT 


001 


0000 


01 I 7 


0030* 


0049 


005L 0053 


iSRNOM 


DO I 


0040 


0123 








4SRR0 


00 I 


0009 


0126 








iSRROO 


OOL 


0000 


0L23 


0055 






tSRROF 


001 


OOOL 


0124 


0038 






tSRRDL 


00 L 


3002 


0125 








iS^WRK 


001 


0006 


0L20 








BASE 


001 


408C 


0106 


0025 


0026 




BRG 


OOL 


0001 


023? 


0025 
0069 


00?6* 
0097 


0029 0038 


BJFFR L 


001 


4100 


02^2 


01 L3 






BUFFRZ 


001 


4130 


0274 


0L14 






eoF 


003 


4050 


06 9 


0050 


0078 




EOFMGC 


OOL 


400C 


0263 


0235 






EOFMSG 


001 


4084 


0227 


00 6 9 






E3J 


001 


4081 


0096 


0052 


00/5 


0086 


FUEL 


003 


401B 


0044 


0066 






FILES 


003 


4018 


004 I 


00 7 7 






LOG 


001 


0002 


0289 


0069* 


0081* 


0089* 


NOSKIP 


004 


4054 


0066 


0064 






PERMGC 


001 


40F3 


0267 


0262 






PER^SG 


00 1 


4 000 


0254 


039 






PRNBUF 


001 


427C 


0231 


0L53 






PRNOTF 


001 


4093 


0137 


0029 


JO^l* 


0056* 0057 


PRNERR 


JO 3 


407A 


0039 


0061 






PRNlOa 


001 


4306 


0233 


152 






REPLV 


OOL 


4UC3 


023a 


0074 


0076 


0237 


SERMGC 


001 


40E3 


0265 


0250 






SERMSG 


OOL 


4 0C4 


0242 


J081 






SYS 


OOL 


0U02 


0288 


0044* 


0049 


0051 0053 


SYSER 


003 


4070 


003 1 


0054 






SYSINL 


OOL 


4oac 


01 L 1 


0033* 


04 4 




WGRK4R 


OOL 


42 00 


0276 


0115 







VFR 31, MOO 11-T9-73 ^aGF 



0044 0U56 0J57 006"? J.)?^ 0076 0081 



05 5 05o 



TOTAL STATEMENTS IN ERROR IN iHiS ASSFMflLV-- 

TOTAL SEQUENCE ERRORS IN THIS AiSEMBLV-- 



OLL05 1 THE COUE LENGTH UF iASSPR IS 8 2^1 .>ECIMAL. 

OL103 I TOTAL NUMBER OF LIBRARV SECTORS R'OUIRCO IS 5 

NAME-$ASSPR,PA:K-Rl«lRI,JNIT-Rl,R'TA[\'-T,Lr:iRARY-^,CATEGa^Y-:iO') 

Figure 36 (Part 4 of 4). Listing of Statements in Model 15 Basic Assembler Sample Program. 
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Appendix G: IBM 1255 Magnetic Character Reader Support (Models 12 and 15 Only) 



Support is provided by the following IBM-supplied 
subroutines: 

• SUBR07 ^- 1255 (Model 15 only) 

• SUBR08 - 1255 (Model 12 and Model 15) 

• SUBR09 -1419 (Model 1 2 and Model 1 5) 

For detailed information concerning this support, see the 
IBM System/3 Models 1 2 and 15 1255 and 1419 Magnetic 
Character Reader Reference and Program Logic Manual ^ 
GC21-5132. 
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100 (101-104 deleted) 



Index 



SWORK 2 file 34 
//CJNDcard 33 
//SWllCH Matcment 31 



12 



28 



absoLute displacements 
absolute expressions 7 
absolute objeci program 
address conslant i8 
addressing 1 2 

base-register displacement method 1 2 

data addressing 13 

direct method 12 

instruction addressing 13 

relative addressing technique 12 

symbolic (direct) 12 
assembler 

coding conventions 8 

coding form 9 

functions 1 

instruction statements 17 
data defmition 18 
fields 8 
format 8 

listing control instructions 20 
program control instructions 22 
symbol detuiition mstruction 17 

listing 19 
assembler language subroutines 

Unkage to COBOL 86 

linkage to FORTRAN 86 

linkage to RPG 11 71 

placing m R library 36 
assembling a source program 28 
asterisk 

use in comment statement 1 

use as location counter reference 6 
attributes 

length atributc 14 

value attribute 14 



base addiess 1 2 

base register 1 2 

base-register displacement addressing 12 

basic assembler sample program 89 

beginning column 25 

binary consxaut 6, 19 

binary self-defining term 6 



calling a source program 
category level 27 
CATG operand 27 
character 

constants 19 

self- de fin iiV;.^ •erms 6 
COBOL linkage 86 



31 



code 

control 43 

mnemonic 1 

operation 9, 43 
machine 47 
mnemonic 1 

Qcode 17,43 
coding conventions, assembler 8 
coding form, assembler 9 
coding sample for SPECIAL device 82 
COMLx operands 29 
comment statement 10 
complement (two's complement form) 19 
constant {see also self-defming term) 

address 18 

binary 1 9 

character 19 

data 18 

decimal 19 

define constant (DC) 18 

hexadecimal 19 

integer 19 

negative {see integer constant) 

padding of 19 

truncation of 19 
control card code for assembler subroutine 76 
control statements 27 
control cards, LDG program {see Library Deck Generator 

parameter card) 
control section length 27 
control code 43 
conversion, punch 33 
cross reference data 35 
cross reference listing 28, 40 



data 

addressing 13 

constant 18 
data defining instructions {DC and DS) 18 
data file requirements 34 
EXT (define constant) instruction 18 
decimal constant 19 
decimal self-defining term 5 
deck, object 17 

define constant (DC) instruction 18 
define storage (DS) instruction 19 
diagnostics 40 



table of 69 
direct addressing 1 2 
displacement 1 2 

absolute 12 

relocatable 12 
DROP statement 25 
DS (define storage) instruction 
duplication factor 

with DC instruction 18 

with DS instruction 19 



19 



Index 105 



EJECT statement 20 

END record 33 

END statement 26 

ending column {see also ICTL statement) 25 

entry {see fields) 

entry point 25 

ENTRY statement 25 

EQU (equate symbol) statement 17 

error code 69 

error conditions, LDG program 81 

error information 35 

ESL recoid 32 

explicit length 15 

expression 7 

absolute 7 

evaluation of 7 

multi-term 7 

relocatable 7 

rules for coding 7 
extended mnemonic codes 14, 48 
external symbol list 39 

table size 42 
EXTRN statement 25 
EXTRN subtype 25 

specifying 27 



rields(s) 

assembler statement 8 

identification-sequence 10 

name 10 

operand (macliine instructions) 14 

operation 10 

remark 10 

files 

source 34 

object 34 

work 34 
format(s) 

assembler statement 8 

machine-instruction statement 13, 43 

operand 14 
format control, input 22 
FORTRAN linkage 86 

groups machine-instruction operand 15 

HEADER record 32 
HEADERS statement 27 
hexadecimal constants 19 
hexadecimal self-defining terms 6 



instruction(s) (continued) 

machine-instruction statements 
program control 22 

17 



13 



ICTL (input format control) statement 22 
identification-sequence entry (field) {see also ISEQ statement) 
I-field (immediate da ta) 16 
implied length 15 



10 



input format control 22 

input sequence checking (ISEQ) statement 

instruction(s) 

addressing 1 2 

assembler instruction statements 17 

data defining 1 8 

listing control 20 



22 



symbol definition (EQU) 

types 17 
integer constant 19 
intermediate text 34 
ISEQ (input sequence checking) statement 22 

J cards 77 



K cards 77 



label (see symbol and name entry) 
language 

machine {see also machine instruction formats) 

RPGII 71 

symbolic 1 
L cards 78 
length(s) 

attribute 14 

control section 27 

explicit 15 

implied 15 

subfield 14 

of data definition instructions 18 
Library Deck Generator parameter card 80 
Library Deck Generator Program 76 
linking 

to COBOL 86 

to FORTRAN 86 

to RPGII 71 
listing control instructions 20 
listings, program 28, 38 
loading the assembler 29 
location counter 6 

control of {see also START and ORG) 1 3 
location counter reference (*) {see also terms) 6 



macliine-instruction(s) 1 3 

format 43 

list of 43 

mnejnonic codes 14 

operands 14 
machine language 1, 49 
macro processor 30 
main storage requirements 2 
messages 69 
mnemonic operation codes 1 

for assembler instruction statements 67 

for machine-instruction statements 47 
module category level 27 
module name 23 



name entry (field) 10 

name, module 23 

negative values {see integer constant) 

NOREL 28 

NOOBJ 28 
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OBJ 28 

object deck 28 

object file ($WORK) 34 

object operand 31 

object program 4, 32 

object pjogram, placing in R library 

direct 36 

punched 36 
OCL statements 29 

one-address format (machine-instructions) 43 
Op code (machine-instruction formats) 43 
operand(s) 

entry (field) 10 

fields 14 

formats 15 

groups 15 

machine-instruction 14 

subfields 14 

of DC and DS instructions 18 
operation procedures 36 
operation codes 

extended mnemonic 1 3 

mnemonic {see mnemonic oi>eration codes) 

Op code (machine instructions) 43 
operation control language statements 29 
opejation entry (field) 10 
OPTIONS 36 
OPTIONS statement 27 
ORG (set location counter) instruction 24 



PRINT (print optional data) instruction 22 
program control instructions 22 
program relocation 4 
punch conversion 33 



Qcode 17,43 



record formats 32 

R£L 28 

relative addressing 12 

relocatable 

displacements 12 

expressions 7 

terms 7 
relocation of programs 4 
reniaik entry (field) 10 
representation of negative values {see integer constant) 

requuemenis 

data file 34 

main storage 1 

system 1 
restrictions, module name 23 
RPGU 

linkage to assembler language subroutine 71 



sequence 8 

checking (ISEQ) statement 22 

entry (field) 8 
source file 34 
source and object listing 39 
source program, from macro processor 31 
source statement (assembler instruction statement) 1 
SPACE (space listing) statement 21 
special character(s) 

in symbols (name entries) 5 



START (start assembly) statement 23 
statement(s) 

assembler instruction 1 7 
fields of 8 
format of 8 
types 1 
comment 10 
machine instruction 1 3 
storage 

addressing 4 

definition (b;^) instruction 19 

relocation in 4 

requirements 2 
subfield(s) 

constant (DC instruction) 1 8 

duplication factor 18 

length 1 8 

of machine instruction operands 14 

type 18 
subroutine linkage 71, 86 
SUBR07 99 
subtype, EXTRN 25 
subtype, specifying 27 
symbol {see also name entry) 5 

definition instruction (EQU) 1 7 

mnemonic {see mnemonic operation codes) 

rules for coding 5 

table entries 35 
symbolic 

addressing {see direct addressing) 

language 1 
system requirements 1 



terms 5 

text, intermediate 34 

TEXJ-RLD records 33 

TITLE (identify assembly output) statement 20 

truncation of constants {see DC instruction) 

two-operand format 1 5 

two*s complement form {see integer constant) 



USING statement 
Ul indicator 31 



24 



sample program 

basic assembler 89 
RFC 11 linkage 71 
SPECIAL subroutine 82 

segment, assembler statement 

self-defining term 5 



value attribute 14 



work file 34 



1255 support 99 
3741 Data Station 1 
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